U 060C, 0000,023C,1980,F800,1404,67E2 
U 060D, 0018,0038,1980,FA80.0000,OA25 

U 07E2, 0019,2000,11CO,F8QO,0010,OA16 



3 1 
ZZ-ES0AA-124.0 ; CHAR .MIC C600,12043 Character string H-jan-82 Fiche 3 Frame B1 
; P1W124.MCR 600.1204D MICR02 1L(03) U-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA OE, WCS1 
; CHAR .MIC C600.1204] Character string • SKPC, LOCC 



Seguence 413 



Page 412 



U 07E3, 0000,803C,1130,4110.5404,47F2 



U 07E6, 0000,803d 180,41 10,5404,47F2 



U 07E7, 0000,803C, 1180,4110,5404,47*2 



U 07F2, 001 1,8E20, 01 80, F 800, 001 0,0826 



U 07F3, 0011,8E20,0180,F800,0010,0826 



U 07F6, 0011, 8E2O,O18O,F8O0.C01C, 0846 



U 07F7, 001 1, 8E?0, 01 80, F 800, 001 0,0826 



15746 =0 

15747 SKPST1: STATE KCZEROJ, 



15748 

15749 

15750 

15751 

15752 

15753 

.5754 =010 

15755 SKPST2: 

15756 

15757 

15758 

15759 

15760 

15761 

15762 

15763 

15764 

15765 

15766 

15767 

15768 

15769 

15770 

157/1 

15772 

15773 

15774 

15775 

15776 

15777 

15778 

15779 

15780 =010 

15781 SKPBYTES 
15782 
15783 
15784 
15785 
15786 
1578' 
15768 
15789 
15790 
15791 
15792 
15793 
15794 
15795 
15796 
15797 
15798 
15799 



ben/rOr. 

J/SKPST2 
J/SKPLOCEXIT,RCROJ_KCZEROJ 



Q Q-KC.4] "LK.UBCC, 
j7SKPALIGNcD 

;011- 

DCBYTEJ CACHE, 

STATE STATE .AN.SKPLONG, 

LC RCD2D, 

INTRPT. STROBE, 

J/SKPBYTES 

,-110 

DCBYTEJ CACHE, 

STATE STATE. AN.SKPLONG, 

LC RCtt23, 

INTRPT. STROBE, 

J/SKPBYTES 

DCBYTEJ CACHE, 

STATE STATE .AN.SKPLONG, 

LC RCTT23. 

INTRPT. STROBE, 

J/SKP8YTES 



alu d.xor.lcclx.ubccdt/byte, 

ben7jnterrupt, 

j/skp8ytes1 

alu d.xor.lcclk.ubcc.dt/byte, 

ben7jnterrupt, 

j/skp8ytes1 

alu d.xor.lcclk.ubccdt/byte, 
ben7jn:errupt, 

J/SKPL0NG1 



.111 

ALU D.X0R.LCCLK.UBCCDT/6YTE. 

BEN7INTERRUPT, 

J/SKP8YTES1 



ALU <Z> 

SOMETHING TO DO. INITIALIZE STATE 
BRANCH ON BYTE OFFSET OF SRC ADDR 



ALU = 
LENGTH = 

LA <1:0> 

LA<1:0> = 00 

SEE IF A LWD'S WORTH 



LA<1:0> = 01 
READ 1 BYTE 
NOTE IT'S BYTE 
LATCH COMPARE CHAR 
INTERRUPTS PENDING? 



LA<1:0> * 10 
READ 1 BYTE 
NOTE IT'S BYTE 
LATCH COMPARE CHAR 
INTERRUPTS PENDING? 



LA<1:0> = 11 
READ 1 BYTE 
NOTE IT'S BYTE 
LATCH COMPARE CHAR 
INTERRUPTS PENDING? 



LA <1:0> 

LA<1:0> = 00 

COMPARE BYTES 

BRANCH IF AN INTERRUPT PENDING 



LA<1:0> = 01 

COMPARE BYTES 

BRANCH IF AN INTERRUPT PENDING 



LA<1:0> = 10 

COMPARE BYTES. 

BRANCH IF AN INTERRUPT PENDING 

NEXT COMPARE WILL BE OF LOMGWORDS 

BECAUSE LA<1:0>=10, SO VA=11 

LA<1:0> = 11 

COMPARE BYTES 

BRANCH IF AN INTERRUPT PENDING 



U 0826, 0O19,3BO0,O5CO,FA08,0O10,06E9 
U 0827, 0000,003C,1980,F800,0104,6A26 

U 06E9, 0018,01 K,0580,FA88,0200,0628 

U 06EB, 0019,2014,0580,FA80,0000,OA25 

U 06ED, 001 9,201 A,O58O,FA80,0000,0A25 

U 06EF, 0018,0114, 0580, FA88, 0200, 0628 



C 1 

ZZ-ES0AA-124.0 ; CHAR .MIC C600, 12043 Character string ,-.-Jan-82 

; P1W124.MCR 600-12043 MICR02 1L<03) 14-Jan-82 15130:16 VAX1 1/780 

; CHAR .MIC £600,12043 Character string : SKPC, LOCC 



Fiche 3 Frame C1 Sequence 414 

Microcode : PCS 01. FPLA OE, WCS124 Page 413 



U 06EF, 0018,01 14,O58O,FA88,0200,0628 



U 0628, 0000,823C,1 180,41 10,5404,47F2 
U 0629, 0O03,003C,O18O,FA80,0O00,0A25 



U 0846, 0019,3808, 11 CO, FA08, 001 0,06F9 
U 0847, 0000.003C,1980,F800,010;,6A26 



;1011- 

RCR03 Q-HCC.13. 

J/SKPCOCEXIT 

;1101 

RCR03 Q+KC.13. 
J/SKPtOCEXIT 

;1111 — 

VA,LA+KC . 1 3 ,RCR1 3 J.A+KC . 

Z?,J/SKPBYTES3 



15800 =110 ; 

15801 SKPBYTES1: 

15802 Q Q-K[:.13,CLK.UBCC. 

15803 LfeRCR13. 

15804 BEN7ALU.J/SKP8YTES2 
15805 

15806 ;111- 

15807 J/SKPFPD,FE KCZEW3 
15808 

15809 =1001 ;- 

15810 SKPBYTES2: 

15811 VA LA+KC.13,RCR13 LA+KC. 

15812 Z?,J/SKPBYTES3 
15813 
15814 
15815 
15816 
15817 
15818 
15819 
15820 
15821 
15822 
15823 
15824 
15825 

15826 =0 , 

15827 SKP8YTES3: 
15828 

15829 0C8YTE3 CACHE, 
15820 J/SKPLOtEXIT 
15821 

15822 ;1111- 

15823 VA LA+KC.13,RCR13 LA+KC. 

15824 Z?,J/SKP8YTES3 
15825 

15826 =0 ; 

15827 SKPBYTES3: 
15828 

15829 DCBYTfc.' CACHE, 

15830 STATE 'ATE.AN.SKPL0N6, 

15831 LC RCl >3, 

15832 INTRP 'KOBE, 

15833 J/SKPe^ ;,BEN/ROR 
15834 

15835 ;1 

15836 J/SKPLOCt. r,RCR03 
15837 

15838 =110 ; 

15839 SKPLONG1: 

15840 Q Q-KC.43-1, 

15841 CEk.UBCC, 
15^42 LAB RCR13, 

15843 BEN7ALU,J/SKPLONG2 

15844 

1 5845 ; 1 1 1 

15846 J/SKPFPD,FE KCZER03 



13. 



13, 



13. 



INTERRUPT PENDING? 
NO INTERRUPT PENDING 
DECREMENT COUNTER 
LATCH SRC ADDR 
CHARS =? 



INTERRUPT PENDING. SET FLAG 

ALU <Z> ♦ IR <0> 
LOCC. UNEQUAL. 
INCR DEST ADDR. 
MORE TO DO? 

SKPC. UNEQUAL. 
BYTES DON'T MATCH 
ALL DONE 

LOCC. EQUAL. 

BYTES MATCH. RESET COUNT 

ALL DONE 



SKPC. EQUAL. 
BYTES MATCHED. 
MORE TO DO? 



INCREMENT ADDR 



ALU <Z> 

THIS IS THE ENTRY POINT FOH TERMINAL 
BYTES AS WELL AS PART OF THE BYTE LOOP 
ALU NE SO MORE TO DC 
ALL DONE 



SKPC. EQUAL. 
BYTES MATCHED. 
MORE TO DO? 



INCREMENT ADDR 



ALU <Z> 

THIS IS THE ENTRY POINT FOR TERMINAL 

BYTES AS WELL AS PART OF THE BYTE LOOP 

ALU NE SO MORE TO DO 

READ ANOTHER BYTE 

LATCH COMPARE CHAR 

CHECK FOR AN INTERRUPT 

BRANCH ON BYTE OFFSET OF ADDR 



COUNTER = 0. ALL DONE. 

INTERRUPT? 

LAST BYTE READ WAS AT BYTE 3 

OF LONGWORD. NEX r WILL BE AT LONGWURD 

BOUNDARY. SEE IF A LWO LE.'T TC HEAD 

MATCH? 



GO SERVICE INTERRUPT 



D 1 



ZZ-ESOAA-124.0 ; CHAR .MIC C600. 12043 Character string 14-Jan-82 Fiche 3 Frame D1 Sequence 415 

: P1W124.MCR 600-12043 MICR02 1L(03) 14-Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01, FPLA 0E, WCS124 Page 414 

. CHAR .MIC C600, 12043 Character string : SKPC, LOCC 



U 06F9, 0018,0014,0580,FA88,0200,OA16 

U 06FB, 0019.2010,1 180,FA80,0000,OA25 

U 06FD, 0019,2010,1 180,FA80,0000,OA25 

U06FF, 0018,0014,0580, FA88,0200,OA16 



15847 =1001 

15848 SKPL0NG2: 
15849 
15850 
15851 
15852 
15853 
15854 
15855 
15856 
15857 
15858 
15859 
15860 
15861 
15862 



VA LA+KC.13,RCR13J.A+K[.13, 
J/SKPALIGNED 

;1011- 
RCR03 Q+5, 

j/skpCgcexit 

;1101 

RCR03 Q+5, 
J/SKPCOCEKIT 

.-1111 — 

VA_LA+KC.13,RCR13.LA+KC.13 



Z BIT + IR <0> 

LOCC ♦ UNEQUAL. INCREMENT SRC ADDR 
CONTINUE WITH LWD SEARCH 



SKPC + UNEQUAL. 

ALL DONE. MISMATCH WHILE IN BYTE SEARCH 



LOCC + EQUAL. 

ALL DONE. MATCH IN BYTE SEARCH 



SKPC + EQUAL. INCREMENT SRC ADDR 
CONTINUE SEARCH BY LWDS 



U 0A16. 0001,233C, 71 80, FA80, 0084. 65E9 



U 05E9, 0019,2014, 11C0,F800,0010,0A18 



U 05EB, 0810,0038,01CO,F910,0000,OA19 



U 0A18. 0000, 013C,0180,F800,0000, 0628 



E 1 

ZZ-ESOAA-124.0 ; CHAR .MIC C600.12043 Character string 14-Jan-82 Fiche 3 Frame £1 Sequence 416 
; P1U124.MCR 600,12043 MICR02 1L(03) 14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA OE, WCS124 Page 415 
; CHAR .MIC [600,12043 Character string : SKPC/LOCC L0N6W0RD OPERATIONS 



Character string 



: SKPC/LOCC LONGWORD OPERATIONS' 



15863 .TOC 
15864 

15865 ;HAVE HIT FIRST LONGWORD BOUNDARV. MAKE A L0N6W0RD OF COMPARE CHARACTER 

15866 ;S0 COMPARISONS CAN BE DONE A LONGWORD AT A TIME. 
15867 
15868 
15869 SKPALIGNED: 



15870 

15871 

15872 

15873 

15874 =01 

15875 

15876 

15877 

15878 

15879 

15880 

15881 

15882 

15883 SKPALIGNED1: 

15884 2?,J/SKPBYTES3 
15885 



RCR03.Q, 

SC KC.FFF83, 

C3T? 



Q Q+KC.43,CLK.UBCC, 
J7SKPALIGNED1 

;11- 

q rcct23,d rcct23, 
j7skpalignCd2 



SAVE CURRENT COUNT 

PREPARE TO MAKE LUD OF COMP CHAR 

<4 CHARS LEFT? 

ALU <C> 

<4 BYTES TO READ. RESET COUNTER 

SEE IF ANY LEFT AT ALL 



AT LEAST 4 BYTES TO READ 

PREPARE TO MAKE A LUD OF CMP CHAR 



SEE IF COUNT > 0. ASSUMES LA STILL 
SET TO REFLECT UNINCREMENTED ADDRESS 



F 1 
ZZ-ESOAA-124.0 ; CHAR .MIC C600J2043 Character string 14-Jan-82 Fiche 3 Frame F1 

; P1W124.MCR 600.12043 MICR02 1L(03) 14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FF1A OE, WCS1 

; CHAR .MIC C600,1204D Character string : SKPC/LOCC LONGWOaD OPERATIONS 



Sequence 417 



Page 416 



ii 0A19, 0B00,003C,0180.F800,0000,0A1A 

U 0A1A, 0D00,003C,0180,F800,0000.0A1C 

U OAK, 0B00,003C,01E0,F800,0000.0A1D 

U 0A1D, 001D,0030,0180,F990,0000,0A20 

U 0A20. 0000.003C,01C0,FA00,4000,032F 



U 085o, 0811,0320.1980,FA08,0094,6671 
U 0857, 0000,003C.1980,F800,0104,6A26 

U067',. 0019,3814, 11C0,F800,0010,03A9 
U 0673, 0018»1B14,1180,FA88, 0200, 0329 



15*36 ; — 

15887 SKPALI6NED2: 

15888 

15889 

15890 

15891 

15892 



D.D.SUAP 
D.DAL. SC 
DJ>.SUAP,QJ> 
RCCT23.D.0R.Q 



Q RCROJ, 
IRTRPT. STROBE, 
J/SKPL0OP2 



15893 
15894 
15895 
15896 
15897 
15898 
15899 
15900 
15901 
15902 
1590* 

15904 =110 

15905 SKPLONGLOOP: 

15906 D D.XOR.LCCLK.UBCC, 

15907 St_ KCZEROD, 

15908 LAB RCR13, 

15909 C31?,J/SKPLOOP3 
15910 

15911 ;111 

15912 J/SKPFPD,FE KCZEROJ 
15913 

15914 =01 

15915 SKPL00P3: 

15916 Q Q+KC.43,CLK.UBCC, 

15917 BEN/ALU, 

15918 J/SKPLASTBYTES 
15919 

15921 VA U+KC.43,RCR13 LA+KC.4J, 

15922 BER/ALO, 

15923 J/SKPLOOf 1 
15924 

15925 ; *********************************************** 

15926 ; * Patch no. 048, PCS 0673 trapped to WCS 1176 * 

15927 ; *********************************************** 



CHAR IN BYTE 3 OF D ♦ BYTE OF 

CHAR IN BYTES 2,3 OF D 

CHAR IN D 0,1 + Q 2,3 

RCCT23 NOW HAS LONGWORD OF COMPARE AR 



COUNT IN Q 

TEST FOR INTERRUPTS 



INTERRUPT? 

COMPARE LWDS 

ASSUME MISS AT BYTE 

LATCH SRC ADDR 

BRANCH ON # BYTES LEFT 



GO SERVICE THE INTERRUPT 

ALU <C> 

< 4 BYTES LEFT. RESET + TEST COUNTER. 

A MATCH? 

GET OUT OF LWD LOOP 



> 3 BYTES LEFT TO READ 

A MATCH? 

CONTINUE IN LWD LOOP 



ZZ-ESOAA-124.0 ; CHAR 
; P1W124.MCR 600,12043 
; CHAR .»*IC [600.12043 



G 1 
.MIC C600J2043 Character string K-Jan-82 Fiche 3 Frame G1 Segnence 418 

MICR02 1L(03) U-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA 0E, WCS124 Page 

Character string : SKPC/LOCC LONGWORD OPERATIONS 



417 



U 0329, 0819,1825, C180,F800.0000,05CC 



U 032B, 0000,003C, 0180, FA88,0000,OA21 



U 032D, 0019,2014,01 CO,F800,0000,033F 



U 032F, OO19,2E00,11C0,4110,1414,6856 



U 033F, 0019,2000, 1D80,FA80, 0000, 0A2' 



15928 
15929 
15930 
15931 
15932 
15933 
15934 
15935 
15936 
15937 
15938 
15939 
15940 
"5941 
15942 
15943 
15944 
15945 
15946 
15947 
15948 
15949 
15950 
15951 
15952 
15953 
15954 
15955 
15956 
15957 
15958 
15959 
15960 
15961 
15962 
15963 
15964 
15965 
15966 
15967 
15968 



;WHEN CALLED, RCR13 POINTING AT BYTE OF NEXT LONGWORO, I.E. THE LWD 

.•AFTER THE ONE FOR THE COMPARE OF THIS BRANCH. 

;Q IS 8 BYTES LESS THAN COUNT AT BYTE OF LWD BEING COMPARED. 



=01001 ;• 
SKPL0OP1: 



CALL ,J/LOCEQLONG ,8EN/D .BYTES , 
D.D.ANDN0T.KC.FFFF3 



.-01011- 
SKPL00P4: 

RCR13 LA, 
J/SKPONEQLONG 



; 01 101- 
Q Q+KC.83, 
J7L0CUNEQ 

,-01111- 
SKPL00P2: 



DCL0NG3 CACHE ,STATE.SKPLONG, 

Q Q-KC.*3,CLK.UBCC, 

Lt RCCT23, 

BEN/INTERRUPT, 

J/SKPLONGLOOP 



=11111 



RETURN1F, IR <0> ♦ ALU Z 

LOCC, ALU NE 0. SEE IF ANY BYTES MATCH. 

CLEAR LOW WORD SO IF MISMATCH IS 

IN BYTES 2 OR 3, ONLY NEED A 4-WAY 

BEN TO CATCH IT 

LOCEOLONG RETURNS F IF NO MATCH, 

RETURNS 1F IF MATCH FOUND(ALL DONE) 

SKPC, ALU NE 

KNOW THE SKPC INSTRUCTION 

WILL BE TERMINATED AT THIS LONGWORO 

SO SET ADDR TO BYTE OF IT TO 

FIGURE OUT 1ST BYTE THAT MISMATCHED 

LOCC, ALU = 0. WHOLE LWD OF = FOUND 



SKPC, ALU = 0. CHAR FOUND. CONT SEARCH. 
LOCC. CHAR NOT FOUND RETURN FROM LOCEOLONG 
READ A LONGWORD OF SRC 
DECREMENT + CHECK COUNTER 
LATCH COMPARE CHAR 
INTERRUPT PENDING? 



RETURN1F 



;LOCC ONLY. A MATCH HAS BEEN FOUND AT BYTE INDICATED BY SC IN CURRENT LONGWORD. 
.-DECREMENT COUNT(Q) FROM START OF THIS LWD TO CORRECT BYTE. 
;LA POINTING AT ADDR OF BYTE OF CURRENT LWD. 
.•UPDATE REGISTERS AS PER SRM FOR MATCH. 



LOCUNEQ: 



RCR03 Q-KCSC3, 
J/SKP0NEQ5 



.-DECREMENT COUNTER BY PRESET AMT 



U 03A9. 0819.1825. C180.F800.0000.05CC 



U 03AB, 0019,2000. 11CO.F800.0000.0A21 



U 03AD, 0019,2014,1 1C0.FA80.0000.0A25 



U 03AF. 0018,01 14,1 180,FA88,0200.0628 



U 03BF. 0019.2000. 11C0.F800.0000.033F 



H 1 
ZZ-ES0AA-124.0 ; CHAR .MIC C600. 12043 Character string 14-Jan-82 Fiche 3 Frame H1 Sequence 419 

P1U124.MCR 600.1204] MICR02 1L(03) 14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01. FPLA OE. UCS124 Paoe 

CHAR .MIC C600. 12043 Character string : SKPC/LOCC LONGUORD OPERATIONS 



418 



15969 
15970 
15971 
15972 
15973 
15974 
15975 
15976 
15977 
15978 
15979 
15980 
15981 
15982 
15983 
15984 
15985 
15986 
15987 
15988 
15989 
15990 
15991 
15^92 
15993 
15994 



=01001 ; 

SKPLASTBYTES: 



CALl.J/LOCEQLONG, 
D D.ANDN0T.KC.FFFF3, 
BEN/D. BYTES 



•01011 

Q Q-KC.43. 
J7SKPUNEQL0NG 



•01101 

Q Q+KC.43.RCR03JJ+KC.43. 
J7SKPLOCEXIT 

.01111 

VA.LA+KC .43 .RCR1 3.LA+KC . 43 , 
Z7.J/SKPBYTES3 



RETURN1F. IR<0>. ALU Z 

R1 POINTING AT BYTE OF CURRENT LUD. 

VALUE FOR BYTE OF NEXT LUD 

LOCC. SEE IF ANY BYTES HATCH 

CLEAR LOU WORD 



SKPC. LAST LONGUORD DIDN'T MATCH 
DECREMENT Q SO COMPATIBLE WITH 
ENTRY FROM LONGLOOP 

LOCC. FOUND A LUD OF CHAR 

ADDR POINTING AT BYTE ALREADY 

SET COUNT TO INCLUDE UHOLE LUD 

LOCC. NO MATCH RETURN FROM LOCEQLONG 
SKPC. LAST LONGUORD MATCHED 
CHECK ON TERMINAL BYTES 



=11111 . 

;LOCC. LONGUORDS MATCHED RETURN. Q 

;LWD (BECAUSE OF THE Q Q+8 AT LOCEQLONG). 



RETURN1F FOR LOCEQLONG 
IS NOW POINTING AT BYTE OF PREVIOUS 

.— — - - -.- - _..„_LONG). UANT IT TO BE BYTE OF LUD 

;IN UHICH THE MATCH OCCURRED, SO SUBTRACT 4 TO GET IT. 

QJHCC.43.J/L0CUNEQ .'DECREMENT COUNT TO BE EQUIV TO 

.-BYTE OF CURRENT LUD 



I 1 



ZZ-ES0AA-124.0 : CHAR .MIC [600,12043 Character string 14-Jen-82 Fiche 3 Frame 11 Sequence 420 
; P1U124.MCR 600-12043 MICR02 1L<03) H-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA OE, UCS124 Page 



': CHAR ImIC C606.12043 



Character string 



: SKPC/LOCC LONGUORD OPERATIONS 



419 



U 05CC, 0019,2016,01 C0,F800,0000,001F 

U 05CD, OO00,003C, 0580, F800,0084,65CC 

U 05CE, 0019,2016,01CO,F800,0000,001F 

U 05CF, 0O00,183C, 0980, F 800, 0084, 6490 

U 0490, 0019,2016,01C0,F800,0000,001F 

U 0494, 0000,003C,0080,F800,0084,65CC 

U 0498, 0019,2016,01CO,F800,0000,001F 

U 049C, 0000,003E,0180,F800,0000,OOOF 



ALGORITHM: 

THIS ROUTINE SHARED BY LOCC LONGUORD + BYTE COMPARES, UHICH HAKES FOR 
SLIGHTLY UGLY COUNTER MACHINATIONS. FOR LUDS, Q IS EQUIVALENT TO 
BYTE 0r ( 2 LWDS PAST CURRENT LUD (I.E. THE LUD UNDER CONSIDERATION 
HERE), mft BYTES, Q IS EQUIVALENT TO BYTE OF 1 LWD PAST CURRENT LUD. 
IF A NATCH IS FOUND, ROUTINE RETURNS 1F WITH Q POINTING TO START OF 
CURRENT LUD ♦ SC = BYTE POSITION OF 1ST MATCHING BYTES. 
IF NO MATCH, ROUTINE RETURNS F UITH REGISTERS SUITABLE TO CONT SEARCH 

CALLING SEQUENCE: 

CALL , J/LOCEQLONG ,BEN/D .BYTES 

INPUTS: 

0<31:16>= 2 BYTES TO COMPARE, <15:0>=0 
Q = COUNT (SEE ABOVE FOR EXACT VALUE) 
SC = 

OUTPUTS: 

SC = 0, 1, 2, OR 3 IF A MATCH; = IF NO MATCH 



RETURN: 



15995 
15996 
15997 
15998 
15999 
16000 
16001 
16002 
16003 
16004 
16005 
16006 
16007 
16008 
16009 
16010 
16011 
16012 
16013 
16014 
16015 
16016 
16017 
16018 

16019 =1100 

16020 LOCEOLONG : 
16021 
16022 
16023 
16024 
16025 
16026 
16027 
16028 
16029 
16030 
16031 
16032 

16033 =00** 

1 6034 
16035 
16036 
16037 
16038 
16039 
16040 
16041 
16042 
16043 
16044 
16045 



RETURNF IF NO MATCH; RETURN1F IF MATCH 



0JJ+KL".83,RETURN1F 

;1101« 
SC_KC.13,J/L0CE0L0NG 

;1110 

Q.Q+KC. 83, RETURN? F 

;1111« 

BEN/D.: 'TES,SCJCC23 

QJJ+KC.83, RE TURNIP 

;01** 

SCJ<C. 33, J /LOCEOLONG 

;10**- 
Q_Q+KC.83,RETUR.^U 

RETURNF 



D. BYTES 1*0 

LOCC. DETERMINE IF A MATCH FOUND 
I'M CURRENT LONGUORD COMPARE 
BOTH BYTES = 



BYTE 1 = 
BYTE 0=0 
BYTES + 1 UNEQ 0. ASSUME IT'S 2 



D.BYTES 3+2 
BYTES 2+3=0 



BYTE 3 - 
BYTE 2=0 

NO MATCH FOUND. CONTINUE READING. 



ZZ-ESOAA-124.0 ; CHAR .MIC [600,12043 

; P1W124.MCR 600.12043 

; CHAR .MIC [600,12043 Character string 



J 1 
Character string 14-Jan-82 



MICR02 1L(03) 14-Jan-82 15730:16 VAX11/780 Microcode : PCS~0VFPLA 0E, WCS124 



Fiche 3 Frame J1 



: SKPC - DETERMINE WHICH BYTE 



Page 420 



U 0A21, 0819.1824,C180,F800,0000,062C 

U 062C, 0019,3800,09CO,F8. 0,0084,6088 
U 062D, 0000,003C, 1 980, F800, 0084, 608C 

U 062E, 0019,2000,05CO,-800,0084,60BC 
U 062F, 0000,003C, 1 980, F 800, 0084, 608C 

U 0088, 0019,2000,05CO,F800,0080,C08C 
u 008C, 0019,2014,0180, FA80,0000,0A24 
U 0A24, 0018,0014, 1D80,FA88,0000,OA25 



U 0A25, 0000,403c, 0180, FAOO,2070,05AE 



16046 .T0C " Character string : SKPC - DETERMINE WHICH BYTE" 

16047 ;SKPC. MISMATCH FOUND IN A LWD. DETERMINE WHICH BYTE OF LWD DIDN*T MATCH 

16048 ;Q, THE COUNTER, IS 8 LESS THAN COUNT AT BYTE OF CURRENT LWDS 
16049 

16050 



16051 SKPUNEQLONG: 



16052 

16053 

16054 

16055 =1100 

16056 



D D.ANDN0T.KC.FFFF3, 
BEN/D.BYTES 



Q Q-K[.23, 

St K[.23, 

D.B2?,J/SKPUNEQ3 



; 1 101 

SC JCCZER03 . J/SKPUNEQ1 

;1110 — 

SC K[.13,QJM<[.13, 

J/5KPUNEQ1 



. -J ! ! -J 

SC_K[ZER03 , J/SKPUNEQ1 



16057 
16058 
16059 
16060 
16061 
16062 
16063 
16064 
16065 
16066 
16067 
16068 
16069 

16070 =10** ; 

16071 SKPUNEQ3: 

16072 Q Q-KE.13, 

16073 St SC+1 , J/SKPUNEQ1 
16074 

16075 ;11**- 

16076 SKPUNEQ1: 

16077 RCR03 Q+KC.83 
16078 
16079 

16080 SKPUNEQ5: 

16081 R[R13_LA+K[SC3,J/SKPLOCEXIT 
16082 
16083 
16084 

16085 .-FINAL REGISTER CONTENTS ACCRODING TO THE SRM: 

16086 ;SKPC - ALL MATCHED, LOCC - NO MATCH: 

16087 ;R0 = 

16088 ;R1 = END OF STRING * 1 

16089 ;SKPC - MISMATCH FOUND, LOCC - MATCH FOUND: 

16090 ;R0 = ft BYTES REMAINING IN STRING, INCL UNEQUAL (SKPC) OR EQUAL (LOCC) 

16091 ;R1 = ADDRESS OF UNEQUAL (SKPC) OR EQUAL (LOCC) BYTE 
16092 
16093 SKPLOCEXIT: 



CLEAR LOW WORD SO IF MISMATCH 

IS IN BYTES 2 OR 3 ONLY A 2-WAY 

BEN IS NEEDED 

D. BYTES 1 ♦ 

BYTES ♦ 1 BOTH = 

PRE-ASSUME IT'S BYTE 2 

DETERMINE IF MISMATCH IS BYTE 2 OR 3 



BYTE UNEQUAL 

BYTE 1 

BYTES + 1 UNEQUAL. BYTE COMES 1ST 

D.BYTE 2 

Q + SC ALREADY = 2. 

JUST INCREMENT FOR BYTE 3 

UPDATE RO TO BE WITHIN CURRENT LWD 

SET COUNTER TO * BYTES AT TIME OF MISMATCH 



16094 
16095 
16096 



ALU RCR03, SET. CC (WORD), 
CLRTFPD,J/STRINGFINAL 



SET PSL CC ON COUNT 
CLEAR FPD BIT + EXIT 



ZZ-ESOAA-124.0 ; CHAR .MIC C600,1204J 
P1U124.MCR 600.12043 MICR02 1L<03) 

CHAR .MIC [600. 12043 Character string 



K 1 

Character string 14-Jan-82 Fiche 3 Frame K1 Seuuence 422 
H-Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01. FPLA 0E. WCS124 Page 
: SKPC/LOCC FPO «■ RESTART 



421 



U 0A26. 0001. 373C. 0180. FA80, 0000. 0860 

V 0860. 0014. 0039.01 CO.F800.0000.0EB8 

U 0862. 0B10,0038,71C0,F910.0084.69E8 
U 0864, 0019,2014.0180,FA80,0000,0860 



U 0OC1. 0800.003D.6DC0.FA00.0084.69F2 



U 01C1. 0003.803C.0180.F990.0000.02F8 



16097 
16098 
16099 
16100 
16101 
16102 
16103 
16104 
16105 
16106 
16107 
16108 
16109 
16110 
16111 
16112 
16113 
16114 
16115 
16116 
16117 
16118 
16119 
16120 
16121 
16122 
16123 
16124 
16125 
16126 
16127 
16128 
16129 
16130 
16131 
16132 
16133 
16134 
16135 
16136 



.TOC 



Character string 



SKPC/LOCC FPO ♦ RESTART' 



.'SAVE ALL NECESSARY INFO IN RO + R1 
;R0 BYTES 1-0 = LENGTH FROM Q 

BYTE 2 = PC DELTA 

BYTE 3 = COMP CHAR 
.•STATE BIT 2 = = BYTE 
= 1 ' LONG 
;BIT 2 CHOSEN SO NO KMX CONFLICT ON COUNTER DECREMENT IN SAME INSTR 
;AND CAN BE USED WITH CALL.BAKUP.PC FOR FPD 



SKPFPD: 



STATE2?. 

RCRODQ 



=*000 . 
SKPFPD1 : 



=10 



=100 



Q PC 
CALL^J/BAKUP.PC 



Q RCCT23.D_D.SWAF^C.KC.FFF83. 
J7FPDPACK1 



RCR03_Q>KC . 83 . J/SKPFPD1 



BRANCH ON BYTE/LONG 
ASSUME IT'S BYTE 



0> FOR BAKUP.PC 



0C1 : ;~ 
SKPRESTART: 



1C1 



D RCR03.Q RCR03, 
St KC.FFF03. 
CArL.J/FPDUNPACK 



RCCT23 D.0XTCBYTE3. 
J/SKPRES1 



<2>F0R BEN/STATE, 

<3> NEVER SET 

PREPARE TO BACKUP THE PC 



Q<7:0> COMP CHAR,D<31 :24> PC DELTA 
JOIN GENERAL PACKING ROUTINE 



BACKUP ADDR FOR LONGWORD CASE 
4 FOR THIS LWD. 4 FOR NEXT LWD 



FAULT COMPLETED. RESET COUNT ♦ 

START FROM THE TOP. 

UNPACK RO 

PREPARE FOR DAL.SC 

UNPACK PC DELTA + STATE 



D<7:0>=COMP CHAR 
CONTINUE 



ZZ-ESOAA-124.0 ; CHAR .MIC C600. 12043 
; P1U124.MCR 600-12043 M1CR02 1L(03> 
; CHAR .MIC [600,12043 Character string 



I 1 
Character string 14-Jan-82 Fiche 3 Frame L1 Sequence 423 
14-Jan-52 15:30:16 VAX11/780 Microcode : PCS 01, FPLA 0E, WCS124 Page 
: SPANC. SCANC 



422 



U 0486, 0019,2035, C180,F980,0000,047E 

U 04E6, 0001,203D,0180,F988,0000,037E 
U 04F6, 0001,203C,0180,FA98,0000,OA29 
U 0*29, 0010,0038,01CO,F908,0000,OA2C 

U 0A2C, 0001, 203C,1 980, FB80,1 404, 6A2D 

U 0A2D, 001 0,0038, 3DF0,2E80,0000,0338 



16137 
16138 
16139 
16140 
16141 
16142 
16143 
16144 
16145 
16146 
16147 
16148 
16149 
16150 
16151 
16152 
16153 
16154 
16155 
16156 
16157 
16158 
16159 
16160 
16161 
16162 
16163 
16164 
16165 
16166 
16167 
16168 
16169 
16170 
16171 
16172 
16173 
16174 
16175 
16176 
16177 
16178 
16179 
16180 
16181 
16182 
16183 
16184 



.TOC 



Character string 



: SPANC. SCANC' 



ALGORITHM: SPANC (TIL UNEQUAL) 28 /SCANC (TIL EQUAL) 2A 

THIS IS A VERY STRAIGHTFORUARD BYTE-WISE SEARCH. 

AFTER OBTAINING ALL THE OPERANDS. A SRC BYTE IS READ(SCANEQ); 

IT IS USED TO INDEX THE TABLE (SPANMORE); THE TABLE IS READ; THAT BYTE 

IS ANDED WITH THE MASK CHARACTER AND THE SEARCH TERMINATES OR CONTINUES 

AS A RESULT OF THAT AND OPERATION, DEPENDING ON THE OP-COOS: 

SCANC CONTINUES IF NO MATCH, SPANC TERMINATEES IF NO MATCH 

INPUTS: 

Q LENGTH (1ST OPERAND) 

D ADDRESS (2ND OPERAND) 

REGISTER USAGE: 

RO LENGTH (DT/WORD) 

R1 ADDR 

R2 MASK CHAR 

R3 TABLE ADDR 



OUTPUTS: 

RO 

R1 



R2 
R3 



486: 



4E6: 



4F6: 



NUMBER OF BYTES REMAINING 

ADDRESS OF BYTE THAT TERMINATED SEARCH OR END OF STRING + 1 

IF NOT FOUND 



TABLE ADDRESS 



RCCT03 Q.AND.KC. FFFFJ, 
CALL,J7ASPC 



RCLT13 Q. 
CALL,J7SPEC 



RCR3JJJ 
Q RCCT13 



LC RCCT0D6R1 Q, 
ST^TE.KCZER03 



RCROJ LC. 
QIDCPSLJ 



ARG 1 IS LENGTH 
GET ARG 3 



ARG 2 IS ADDP 
GE1 AKG 41M/.SK) 



ARG 3 IS TBL ADDR 



LOAD SRC ADDR 



SAVE SRC ADDR 
INITIALIZE STATE REG 



SAVE LENGTH 

LOAD PSL FOR CLRPSLCC 



Character string 
|U 03 «. 0019.0035,4980.FA90.00CO,09E4 



U 0378. 0818.O035.C180.FAO0.O010.0E16 
U 0379. 0000.003C.0180.F800.0000.06D8 
U 037A. 0000.003C.0180.F800.0000.06D8 

U 037B. 0000,013C.01EO,FA08,0200,0634 



ZZ-ESOAA-124.0 ; CHAR .MIC C600. 12043 
; P1U124.MCR 600.120A3 
; CHAR .MIC C600.1204J 



N 1 
Character string 14-Jan-82 



Fiche 3 Frame Ml 



., . . ._. . . . . Sequence 424 

MICR02 1L(03) 14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01. FPLA OE. WCS124 Page 423 



: SPANC. SCANC 



U 0634, 0000.803C.0180.4218.0000.0A2E 



U 0635, 0003.003C,0187,FA80,0070,09F1 



U 0A2E. 0OOF,8014,0180,F8O0,4200,0A30 



U 0A30, 0C00,8E3C, 0180,4210.0082,0866 



U 0366, 0019,8034, 1D80,FA09.Pi)10,0A31 
U 086 7 , 00™.003C,:980,FPOO,0104,66D8 



16185 -0****00 ;• 

16186 CALL.J/CLRPSLCC, 

16187 RCR2J.D.AN0.KC.FF3 
16188 

16189 =1****00 ; 

16190 SPANRES1: 

16191 CALL.J/StTFPD. 

16192 D RCROJ.AND.KC.FFFFJ, 

16193 CDc.UBCC 
16194 
16195 

16196 J/FPDPACK 

16197 

16198 ; 

16199 J/FPDPACK 
16200 
16201 

16202 SPANSTART: 

16203 Q D. 
1620* VA* RCR13, 
16205 Z?7J/SPANUNEQ 
16206 

16207 =0 

16208 SCANEQ: 

16209 SPANUNEQ: 

16210 DCBYTEJ CACHE, 

16211 LAS RCR33, 

16212 J/S B ANM0RE 
16213 

16214 ;1- 

16215 RCROJ O.SET.CC(LONG), 

16216 SGN/CtR.SD+SS, 

16217 J/R2ZERO 
16218 
16219 

16220 SPANMORE: 
16221 
16222 
16223 
16224 



VA_LB+D.OXT.DT/BYTE, 
INTRPT. STROBE 



16225 

16226 

16227 

16228 

16229 

16230 =110 

16231 

16232 

16233 

16234 

16235 

16236 

16237 

16238 

16239 



DCBYTEJ CACHE, 
SC RCR21, 
BEfl/INTERRUPT 



AlUJ) . AND . KCSCJ ,DT/8YTE , 

CLK.UBCC, 

LAB RCR1D, 

J/SPANM1 



;111 

FE KCZER03, 
J/PPDPACK 



.♦CLEAR PSL CC 

;AR6 4 IS MASK BYTE 



;SET fPD BIT 

; CLEAR OUT HIGH WORD 

.-VERIFY COUNTER > 



;N0 SPECIAL FPO SETUP REQD 
•NO SPECIAL FPD SETUP REQD 



.•COUNTER TO Q 

rSET ADDR OF FIRST CHAR 

: COUNTER > 0? 

ALU <Z> 

MORE TO DO 

MORE TO DO 

READ SRC CHAR 

FttEPARE TO READ FROM TBL 



ALL DONE 

COUNTER = 

CLEAR 'VRITE REG" FLAG 

R1 -START OF SRC 

R2=:START OF TBL 



SET VA TO ADDR WITHIN TABLE 
EMTEND TBL OFFSET TKHU AMX 
TIME TO CHECK ON INTERRUPTS 



READ A BYTE FROM THE TABLE 
GET MASK CHARACTER 
INTERRUPT PENDING? 

INTERRUPT? 

NO INTERRUPTS PENDING 

COMPARE IT WITH THE MASK CHAR 

SEE IF » 

LATCH SRC ADDR 



INTERRUPT IS PENDING 
IT'S AN INTERRUPT 



Z*-ES0AA-124.0 ; CHAR .MIC E600, 12043 



. P1U124.WCR 600.12043 
; CHAR .MIC C600.1 2043 



MICR02 1L(03) 
Character string 



Character string 



14-Jan-82 15730:16 
: SPANC, SCANC 



N 1 
U-Jan-82 



Fiche 3 Frame N1 



VAX1 1/780 Microcode : PCS 01, FPLA 0E, WCS124 



Sequence 425 



P*ge 424 



U 0A31, 0019,7BOO,05CO,FA80,0010,0749 



U 0749. 0019,2014,0587.FA80,0070,09F1 



U 0748. 001 8. Oil 4. 0580. FA88. 0200, 0634 



U 074D. 0018,01 14, 0580. M88, 0200, 0634 



U G74F, 0019.2014,0587,fA80,0070,09F1 



16240 
16241 
16242 
16243 
16244 
16245 
16246 
16247 
16248 
16249 
16250 
16251 
16252 
16253 
16254 
16255 
16256 
16257 
16258 
16259 
16260 
16261 
16262 
1626> 
16264 
16265 



SPANM1 : 



=7001 



SEN/ALU, 

Q (MCC.13.DT/W0RD, 

CtX.UBCC, 

RCR03 Q-KC.13 



RCR03 Q+Kt.13,SET.CC(LQNG>. 

SGN/C£R.SD*SS, 

J/R2ZER0 

VA LA+KC.13,RCR13 LA+KC.13, 
Z?,J/SPANUMEQ 

VA LA+KC.13.RCR13 LA+KC.13, 
Z?,J/SCANEQ 

RCR03 CMCL\13,SET.CC(L0NG) , 

SGN/CCR.SD+SS. 

J/R2ZER0 



BRANCH ON COMPARISON. 

DECREMENT COUNTER 

SCE IF = 

SAVE A COPY OF THE COUNTER IN 

CASE FAULTED 

ALU <Z>+ IR <0> 

SCANC. AT LEAST 1 BIT FOUND. DONE 

FOUND A MATCH. SET PSL CC<Z> 

CLEAR 'VRITE REG" FLAG 

ZERO R2 

SPANC. MASK BYTE MATCH. CONTINUE 
INCREMENT SOURCE ADDR 
MORE TO DO? 

SCANC. NO BITS MATCH. CONTINUE 
INCREMENT SOURCE ADDR 
MORE TO DO? 

SPANC. NO MATCH. DONE 
SET COUNTER TO THIS MISMATCH 
CLEAR 'WRITE REG" FLAG 
R2.0, R1=L0CN OF UNEG 



U 004A, 0800,003D,6DCO,FAOO,0084,69F2 
U 014A, 0000,003C, 0180,F800,0000,0378 



ZZ-ES0AA-124.0 ; CHAR .MIC [600,12043 
P1U124.MCR 600.12043 MICR02 1LC03) 

CHAR .MIC C600,1204D Character string 



B 2 

Character string 14-Jan-82 Fiche 3 Frame B2 Seguence 426 
14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA OE, WCS124 Page 425 
: SPANC/SCANC RESTART 



16266 
16267 
16268 
16269 
16270 
16271 
16272 
16273 
16274 
16275 
16276 
16277 
16278 
16279 
16280 
16281 



.TOC 



Character string 



SPANC/SCANC RESTART' 



;0N FPD RESTART, START WHOLE COMPARE SEQUENCE ALL OVER, THEREFORE 
;N0 NEED FOR STATE INFO. 

;R1 IS NOT INCREMENTED FOR NEXT READ OF SRC UNTIL 1 FULL SEQUENCE 
;HAS BEEN SUCCESSFUL. THEREFORE, IT'S CURRENT VALUE IS THE CORRECT 
;ADDR TO RE-READ 



4A: 

SPANRESTART: 

CALL,J/FPDUNPACK, 
D RCR03,Q RCR03, 
St KC.FFF03 



UNPACK RO (RESET PC + STATE) 



14A: 



J/SPANRES1 



;60 RESET FPD ADDR + RETRY OPERATION 



2Z-ES0AA-124.0 ; CHAR 
P1W124.MCR 600-12043 
CHAR .MIC C600, 12043 



C 2 

.MIC C600, 12043 Character string 14-Jan-82 Fiche 3 Frame C2 Sequence 427 

MICR02 1L(03) 14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA OE, WCS124 Page 
Character string : CMPC3, CMPC5 



— i 



426 



; 16282 
; 16283 
: 16284 
16285 
16286 
16287 
16288 
16289 
16290 
16291 
16292 
16293 
16294 
16295 
16296 
16297 
16298 
16299 
16300 
16301 
16302 
16303 
16304 
16305 
16306 
16307 
16308 
16309 
16310 
16311 
16312 
16313 
16314 
: 16315 
16316 
: 16317 
16318 
16319 
1o320 
16321 
16322 
: 16323 
16324 
16325 
16326 
16327 
16328 
16329 
16330 
16331 
1o332 
16333 
16334 
16335 
16336 



.TOC 



Character string 



: CMPC3, CMPC5" 



GLOBAL STRATEGY: 

THE CMPC ALGORITHM WILL COMPARE LONGWORDS AS LONG AS THt 

LONGER SOURCE IS LONGWORD ALIGNED AND THERE ARE AT LEAST 4 BYTES 

LEFT TO COMPARE. OTHERWISE IT WILL COMPARE BYTES. THE CRITERIA 

FOR LONGWORD COMPARES ARE RE-EVALUATED EVERY ITERATION, SO A 

MAXIMUM OF 6 BYTE COMPARES WILL BE PERFORMED FOR CMPC3, AND 

10 FOR CMPC5. REGARDLESS OF STRING LENGTH. THE COMPARE LOOP 

COMPARES (RO) BYTES OF THE LONG STRING AGAINST THE SHORT STRING 

OR FILLS, DEPENDING ON STATE BIT 5; WHEN RO IS EXHAUSTED, 

R2 IS CHECKED TO SEE IF THE LOOP SHOULD BE RE-ENTERED FOR FILL 

COMPARISONS. 

BY ORGANIZING THE REGISTERS AS 'SHORT-STRING, LONG STRING" 

INSTEAD OF 'FIRST STRING, SECOND STRING" THE NUMBER 

OF BRANCHES IN THE CODE AND HENCE ITS SIZE ARE GREATLY 

REDUCED; THE PENALTY PAID IS SOMEWHAT MORE OVERHEAD SETTING 

UP AND CLEANING UP. 

FAULT/INTERRUPT STRATEGY: 

TO MINIMIZE FAULT/INTERRUPT/RESTART CODE, THE GENERAL REGISTERS 
ARE UPDATED DURING THE COMPARE LOOP. IF A FAULT OR INTERRUPT OCCURS, 
THE LOOP ITERATION WHICH FAULTED IS SCRATCHED EVEN IF VALID DATA 
WAS READ FROM ONE OR BOTH STRINGS; THE A AND B SCRATCHPAD LATCHES 
ALWAYS HOLD THE BE6INNTNG-OF-ITERATION VALUES OF ANY GENERAL 
REGISTERS CHANGED BY THE CURRENT ITERATION. 

REGISTER USAGE: 

RO HOLDS VARIOUS THINGS: 

1) UNTIL THE SHORTER STRING IS EXHAUSTED, IT HOLDS THE 

NUMBER OF CHARACTERS LEFT IN THE SHORTER STRING. 

2) ONCE THE SHORTER STRING IS EXHAUSTED, IT HOLDS THE 

NUMBER OF CHARACTERS LEFT IN THE LONGER STRING. 

3) IF THE CMPC INSTRUCTION IS INTERRUPTED OR FAULTED, 

IT HOLDS THE NUMBER DESCRIBED IN 1) OR 2) BYTE-SWAPPED 
IN ITS UPPER HALF, AND HOLDS THE HIGH 7 BITS OF THE 
STATE REGISTER IN BITS 14-8 AND PC-DELTA IN BITS 0-7. 
R1 HOLDS THE CURRENT ADDRESS WE ARE FETCHING FROM IN THE LONGER 

OF THE TWO STRINGS. 
R2 HOLDS TWO COPIES OF THE FILL CHARACTER IN ITS HIGH HALF, 

AND THE ABSOLUTE DIFFERENCE IN STRING LENGTHS IN ITS LOU HALF 
(ONCE THE SHORTER STRING IS EXHAUSTED, R2<15:0> IS ZEROED) 
R3 HOLDS THE ADDRESS WE ARE CURRENTLY FETCHING FROM IN THE 

SHORTER OF THE TWO STRINGS. R3 "FREEZES" AT THE BYTE FOLLOWING 
THE SHORTER STRING ONCE THE SHORTER STRING IS EXHAUSTED. 
STATE REGISTER BITS USED BY CMPC ARE: 

OFF-READING LONGER SRC, ON=READING SHORTER SRC. 
TESTED BY READ-FAULT LOGIC 

4 0FF=SRC1 ARGUMENT WAS LONGER, 0N=SRC2 ARGUMENT WAS LONGER. 
USED TO RESHUFFLE THE REGISTERS AT THE END AND GET THE 
SENSE OF THE COMPARE CORRECTLY. 

5 ON=SHORTER STRING HAS BEEN EXHAUSTED. TESTED IN THE LOOP AND 
IN THE FINAL REGISTER RESHUFFLE CODE. 



U 04C2. 0003,603D,0180,F988,0010,047E 

U 04E2, 0001,003C,018O,FA98,00O0,0A34 

U 0A34, 0001,203C,0180,FA88,0000,OA36 

U 0A36. 0003,003C, 0180, FA90,148A,67B0 



ZZ-ESOAA-124.0 ; CHAR .MIC [600,12043 
; P1U124.MCR 600,12043 MJCR02 1L 
; CHAR .MIC C600.12043 Character string 



D 2 
Character string 14-Jan-82 



Fiche 3 Frame 02 



. ^ . _ ._ _ _ . _.._ ._ Sequence 428 

; P1U124.MCR 600,12043 _ MICR02 1L(03) 14-Jan-82_15:30:16 VAX11/780 Microcode : PCS 01, FPLA OE, WCS124 Page 427 



CMPC3, CMPC5 



16337 ;CMPC3 ARGUMENT FETCH - ENTER WITH LENGTH IN Q, ADDR 1 IN D 
16338 

16339 4C2: 

16340 CMPC3: RCCT13 Q.0XTCW0R03, CLK.UBCC, 
"'""" CALLCA5PC3 



16341 

16342 

16343 

16344 4E*l; 

16345 

16346 

16347 

16348 

16349 

16350 

16351 

16352 



RCR33.D 
RCR13JJ 



RCR23 0, STATE 0(A). 
SC_AL0, J/CMPC 



SAVE COMMON STRING LENGTH 
AND GET SRC2 ADDRESS. 



RETURN FROM ASPC 
SAVE SRC2 ADDRESS 



SAVE SRC1 ADDRESS 



ZERO STRING LENGTH DIFFERENCE, 
CLEAR STATE, JOIN COMMON CODE. 



U 0483. O003,6O3D.0180,F980.0000.037E 
U 0493. 0801.203D.71EO.F988.0084.60A2 



E 2 

ZZ-ESOAA-124.0 ; CHAR .MIC [600.12043 Character string 14-Jan-82 Fiche 3 Frame E2 Seguence 429 
; P1W124.MCR 600.12043 MICR02 1LC03) 14-Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01, FPU OE, WCS124 Page 
; CHAR .MIC £600.12043 Character string : CMPC3. CMPC5 



428 



U 0C93. 0001,0O3C,6580,FB80,1404,6A38 

U 0A38. 001 1.6000. 01 C0.FA90.0010.0A39 
U 0A39. 0001,033C.0180,FA98,0000.065C 

U 065C. 0F11,2O14,058O,FA80,0094,6A3A 

U 065E. 0010,0038, 0D80.FA80.0094. 6780 

U 0A3A, 001 D, 4000,1 980, FA90, 1404, 6780 



16353 ;CMPC5 ARGUMENT FETCH - ENTER WITH LENGTH 1 IN Q, ADDR 1 IN D 
16354 

16355 483: ; ; 

16356 CMPC5: RCCT03JJ.OXTCWORD3. CALLCSPEC3 ; SAVE SRC1 LENGTH, GET FILL CHAR 
16357 



16358 

16359 493: 

16360 

16361 

16362 

16363 

16364 

16365 

16366 

16367 

16368 

16369 0C93: 

16370 

16371 

16372 

16373 

16374 

16375 



RCCT1.1 Q, Q_D, D D.SWAP, 
SC.KC "FF83T CALCCM0VCCMPC53 



; SAVE SRC1 ADDRESS. START REP- 
; LICATING FILL CHAR, JOIN 
; COMMON CODE WITH M0VC5. 



ON RETURN FROM M0VCCMPC5, RCCT03=SRC1 LENGTH, 
RCD2J=Q=SRC2 LENGTH, R2<31 :16>= 2 COPIES OF FILL CHAR. 
RCL713=SRC1 ADDR. D=SRC2 ADDR 



LC.RCCT03RR1.D. STATEJCC.103 



RCR23 1 Q-LC. Q Q-LC. DT/WORD, 
CLK.UBCC 



16376 

16377 

16378 

16379 =0* 

16380 

16381 

16382 

16383 

16384 

16385 

16386 

16387 

16388 CMPCSRC1BIG: 

16389 RCR23 D-Q, DT/WORD, 

16390 STATE"KCZER03, J/CMPC 
16391 

16392 ; 



RCR33_D, C31? 

RCR03.Q+LC, CLK.UBCC. D 0, 
SCJCC.13, J/CMPCSRC18IG 

; 1 * 

RCR03 LC. CLK.UBCC. SC KC.33. 
J/CMP? 



M0VCCMPC5 RETURNSC8003 

GET SRC1 LEN. R1 GETS SRC2ADDR, 

SET "SRC2 LONGER" FLAG AS A GUESS 

GET LENGTH DIFF IN R2<15:0> 

TEST WHICH IS LONGER 

BRANCH ON C31 (LC<=Q —> SRC2 IS BIGG; 
SRC1 BIGGER - RO GETS SRC2LEN 
R1 GETS SRC1AD, R3 HAS SRC2AD 



SRC2 BIGGER - RO GETS SRC1LEN 
R3 GETS SRC1AD, R1 HAS SRC2AD 



SRC1 BIGGER - NEGATE DIFF IN R2 
AND CLEAR "SRC2 LARGER" FLAG 



SR) 



ZZ-ESOAA-124.0 ; CHAR .MIC C600, 12043 
; P1W124.MCR 600.12043 MICR02 1L(03) 
; CHAR .MIC C600 12043 Character string 



F 2 
Character string 14-Jan-82 Fiche 3 Frame F2 Sequence 430 
14-Jan-82 1^:30:16 VAX1 1/780 Microcode : PCS 01. FPLA OE, WCS124 Page 
: CMPC3, CMPC5 



429 



U 07B0, 0000.003D,C580,3D08, 0000,0783 



U 07B2, 080C,1738,0183,FA80,0000,0658 



U 07B3, 001O,0O38,81F0,2CE8.0000,0A3C 



U GA3C, OC00.013C,0180,FA08,0000,016C 



16393 
16394 
16395 
16396 
16397 
16398 
16399 
16400 
16401 
16402 
16403 
16404 
16405 
16406 
16407 
16408 
16409 
16410 
16411 
16412 
16413 
16414 
16415 
16416 



CMPC3 AND CMPC5 MERGE HERE. INTERRUPT RESTART ALSO COMES HERE 

TO SET UP FAULT ADDRESS, AND CMPCFILL COMES HERE TO RE-ENTER 

LOOP FOR FILLS. 

SC = NUMBER OF REGISTER WHICH GETS CONTENTS OF RCCT13, 

D = 4 COPIES OF FILL CHAR (NOT TRUE ON ENTRY FROM CMPC3/CMPC5) 

Z SET ON LOOP COUNT 



=00 
CMPC: 



LC RCCT13. IDCT13.D, 
CACLCCMPCSETFPD3 



=10 

CMPC.RDFAULT: 

RCROJ LB, D LB, SD NOT.SD, 
STATED?, J/tMPCFPD 

CMPCSETFPD: 

R(SO_LC, Q_IDCUSTACK3 



LAB RCR13, D Q, 
11. J/CMPCLPENTRY 



CONSTRAINT BLOCK FOR CALL 

SAVE FILLS AND GET VALUE TO STORE 

THIS CALL IS JUST TO SAVE UPC 

READ FAULT ENTRY - CMPC DOES NOT WRITE 

RESTORE RO, SET FAULT FLAG, 
CHECK WHICH READ FAULTED 



SC CAN HAVE THE FOLLOWING VALUES: 

1 OR 3 (LC HAS SRC1 ADDR) 

(LC=LENGTH FROM CMPCFILL/RST) 

PRIME LATCHES FOR LOOP WHILE 
CHECKING FOR NULL LOOP. 



ZZ-ESOAA-124.0 ; CHAR .MIC [600.12043 
; P1W124.MCR 600.12043 MICR02 1L(03) 
; CHAR .MIC r.600. 12043 Character string 



6 2 
Character string 14-Jan-82 Fiche 3 Frame 62 Sequence 431 
14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA OE, WCS124 Page 
: CMPC3, CMPC5 



430 



U 0640, 0818.1A14.1D80,FA88.0300,0188 



U 0641. 0B18,1A14,1D80,FA88,0100,0169 



U 0169, OC88.0038,C1CO,3C90,008C.6A43 



U 016C, 0000,003C,8587,3E08,2600,018C 



U 0160, 0800,403C,75CO,FA10,1454,2A3D 



U CA3D, OB1D,5AOO,6580,FA90,0084,61A8 



16417 
16418 
16419 
16420 
16421 
16422 
16423 
16424 
16425 
16426 
16427 
16428 
16429 
16430 
16431 
16432 
16433 
16434 
16435 
16436 
16437 
16438 
16439 
16440 
16441 
16442 
16443 
16444 
16445 
16446 
16447 
16448 
16449 
16450 
16451 
16452 
16453 
16454 



THIS IS THE MAIN (AND ONLY) COMPARE LOOP. RO COUNTS DOWN THE NUMBER 
OF CHARACTERS TO COMPARE. THE STRING ADDRESSES ARE IN R1 AND R3. 
IF STATE<5>=1. THE R1 STRING IS COMPARED AGAINST FILLS FROM IDCT43. 
AT THE END OF EACH ITERATION, SC HOLDS THE NUMBER OF BYTES 
COMPARED ON THAT ITERATION (1 OR 4). ALIKZ> IS SET ON RO, 
LAftLB CONTAIN R1. 



=0 
CMPCLP: 



RCR13 LA+KCSC3, VA ALU, FE SC, 
D.D.SQAP, PSL.Z?, J/CMPCLP.1 

:1j 



=10*0 
=10*1 



RCR1J LA+KCSC3, FE SC, 
D.D.SQAP, PSL.Z? 



SC SHF.VAL, ALU.PACK. FP, 

(1 ALU.RIGHT2, DO, IDCT03 D, 

LA.RACR23, J/CMPCNEQUAL 



;11*( 
CMPCLPENTRY: 

IDCFPDA3 D, SET.FPD. LAB RCR13, 
VA LA, S5 6ftSD 0, 
J/CMPCLP.TA 

D RCR23, Q RCR23, 

N«Z ALU.Vftt.O. DT/WORD, 

STATE.STATE.0R.KC.203 

RCR23 D-Q, DT/WORD, D D.SWAP, 
SC.KC.103, PSL.Z?, J/tMPCFILL 



ALIKZ> (RO = 0) 

(NOTE "SECOND READ" IS SET HERE) 

UPDATE R1 FROM LAST ITERATION, 
LOAD VA, CHECK LAST COMPARISON. 



COUNT RAN OUT - UPDATE R1, 
CHECK LAST COMPARISON 

BRANCH ON PSL<Z> (SRC1=SRC2), 
ALSO ON ALIKZ> (INITIAL COUNT=0) 
(ALL THIS TO SHARE A WORD) 
D HAS SWAPPED XOR - GET NUMBER 
OF LEADING ZERO BITS IN D INTO 
SC ft Q<9:5>. SAVE OLD D ft Q 



ENTER COMPARE LOOP HERE 

SET FAULT VECTOR AND F.P.D., 

LOAD VA WITH R1, 

INIT FAULT/INT FLAG, ENTER LOOP 



STRINGS EQUAL - EXIT LOOP, 
GET FILLS ft LENGTH DIFF IN DM, 
SET 'SHORT STRING EXHAUSTED", 
SET PSL<Z> ON R2<15:0> 

ZERO OUT R2<15:0>, PUT FILLS 
IN HI Q ft LOW D, TEST R2. 



U 0188. OC88.0038.C1C0.3C90.008C.6A43 

U 018C. 0018.1 524.0D80.FA00.1495.4758 
U 075B, 0000,803C,0180,4000,4080,A645 

U 075F. 0018.0100.1 180,4280,4090,A644 



H 2 

ZZ-ESOAA-124.0 ; CHAR .MIC C600.12043 Character string 14-Jan-82 
; P1W124.MCR 600.12043 MICR02 1L(03) U-Jan-82 15:30:16 
; CHAR .MIC [600.12043 Character string : CMPC3. CMPC5 



Fiche 3 Frame H2 Sequence 432 
VAX1 1/780 Microcode : PCS 01. FPU 0T, WCS124 Page 431 



U 0644. 0000.163C.C5F0.2C98.1600.C739 

U 0645, 0000,0E10,C5F0,2E80,0010,0876 

U 0876. 0COO,163C,01E0,F898,1600,C6D9 
U 0877. 080C, 0038,01 80, FA80, 0000, 0733 



16455 =10** ; 

16456 CMPCLP.1: 

16457 SC SHF.VAL. AIU.PACK.FP. 

16458 Q JLU.RIGHT2. DQ. IDCT03 D. 

16459 LX.RACR23, J/CMPCNEGUAL 
16460 
16461 ;11»* 



DCBYTE3 CACHE. INTRPT. STROBE. 
SC.SC-FE. J/CMPCLP.2 

DCL0NG3 CACHE, RCR03 LA-KC.43. 
CLK.UBCr, INTRPT. STROBE, 
SC.SC-FE. Z? 



16462 CMPCLP.1A: 

16463 LAB RCR03, ALU LA.ANDN0T.KC.33, 

16464 STATE_STATE.ANDN0T.KC. 33, 

16465 SC.FE. CLK.UBCC. ALU1-0? 
16466 

16467 =1011 
16468 
16469 
16470 
16471 
16472 
16473 
16474 
16475 
16476 =0 
16477 
16478 
16479 
16480 
16481 
16482 
16483 
16484 

16485 CMPCLP.2: 

16486 ;1 

16487 RCR03 LA+MASK+1 , CLK.UBCC, 

16488 Q IDCT13, INT? 

16489 =110 

16491 LA RACR33, VA.LA, Q, Q D, 

16492 ST*TE STATE+17 

16493 STATE5?, J/CMPCLP.3 
16494 

1 6495 ; 1 1 1 

16496 RCR03J.B, D LB, J/MOVCPACKST 



PSL<Z> (LAST COMPARE WAS EQUAL) 
LAST COMPARE NOT EQUAL... 
D HAS SWAPPED XOR - GET NUMBER 
OF LEADING ZERO BITS IN D I..TO 
SC ft 0<9:5>, SAVE OLD D ft Q 



LAST COMPARE WAS EQUAL... 
SET Z IF COUNT < 4. 
CLEAR 'SECOND READ r * FLAG. TEST 
IF R1 IS LONGWORD ALIGNED. 

ALIK1:0>=0 (LONG SRC IS ALIGNED) 

NOT ALIGNED - READ A BYTE 

AND ENTER THE BYTE COMPARE FLOWS 



ALIGNED - READ A LONGWORD, 
CHECK IF 4 BYTES LEFT TO COMPARE 



•; ALtKZ> ( .GT. 3 B^TES LEFT TO COMPARE) 



*NOTE* - IF .LE. 3 BYTES TO COMPARE, THE BYTE WE WANT IS 
IN D<7:0>. SINCE THE LONGWORD READ WAS ALIGNED, WE HAVEN'T 
VIOLATED THE ARCHITECTURE BY OVERREADING. 

0- 



LA RACR33, VA.LA, Q.IDCT13. 
STJTE STATE+1. 
STATE5?, J/CMPCLP.6 



LOAD VA WITH 2D STRING ADDR, 
GET FILLS IN Q. SET 'SECOND RD", 
BRANCH ON WHETHER TO USE FILLS. 



COME HERE TO DO BYTE COMPARE.. 
DECR COUNT BY 1 (SC=0— >MASK=-2) , 
GET FILLS IN Q ft CHECK INTS 

BRANCH ON INTERRUPT (PENDINC) 
LOAD 2D STRING ADDR IN VA, 
SET 'SECOND READ", 
TEST WHETHER TO US= FILLS 



INTERRUPT PENDING - GO AWAY. 



I 2 
ZZ-ESOAA-124.0 ; CHAR .MIC C600. 12043 Character string 14-Jan-82 Fiche 3 Frame 12 
; P1U124.MCR 600.12043 MICR02 1L(03) H-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01. FPLA OE, WCS1 
; CHAR .MIC [600,12043 Character string : CMPC3, CMPC5 



U 0609. 0000,803C, 0180,4000,COOO.OA3E 

U 060B. 081D,8120,0580,FA08,OOD4,6640 
U 0A3E, 0018,0014,0580,FA98,0000,06DB 

U 0739. 0018.0E14,11EO,4298.0000,0886 
U 073B, 0C0O,0E3C,01E0,F80O.00O0,0886 



Seguence 433 
124 



Page 432 



U 0886, 081D,0120,I180,FA08,OOD4,6640 
U 0887, 080C,0038,0180,FA80,0000,0659 



16497 =**01 ; 

16498 CMPCLP.3: 

16499 DCBYTE3.CACHE ,J/CMPCLP.5 

16500 " 

16502 CMPCLP.4: 

16503 LAB.RCR13, SC KC.13. 

16504 DD.X0R.Q,N6Z ALU.V8CJ),DT/BYTE, 

16505 7?, J/CMPCLP 

16506 

16508 CMPCLP.5: 

16509 RCR33J.A+KC.13, J/CMPCLP. 4 

16510 

16512 CMPCLP.6: 

16513 DCIONG3 CACHE, Q D, 

16514 RCR33 LJ+KC.43, 

16515 INT?, J/CMPCLP. 7 

16516 _______ 

16518 D.Q, Q D, INT?, J/CMPCLP.7 
16519 

16521 =110 ' ~*~ -— — — 

16522 CMPCLP.7: 

16523 LAB RCR13,SC KC.43, 

1 6524 D D . XOR . Q ,NS7.ALU. VftC_0,DT/LONG , 

16525 Z?, J/CMPCLP 
16526 

1 6527 ; 1 1 1 

16528 RCROJ LB, D LB, J/CMPCFPD1 
16529 

16530 
16531 



STATE<5> (SHORT STRING EXHAUSTED) 
READ BYTE FROM THE SHORT STRING 



SET UP FOR NEXT ITERATION, 
COMPARE LOW BYTES OF D ft Q, 
TEST COUNT EXHAUSTED I LOOP. 



BUMP 2D STRING ADDR, GO COMPARE 

STATE<5> (SHORT STRING EXHAUSTED) 

READ LONGWORD FROM 2D STRING 
UPDATE 2D STRING POINTER 
TEST INTERRUPTS 

COMPARE AGAINST FILLS, TEST INTS 

BRANCH ON INTERRUPT (PENDING) 

SET UP FOR NEXT ITERATION, 

COMPARE LONGWORDS, 

TEST COUNT EXHAUSTED AND LOOP. 



INTERRUPT - THROW EVERYTHING OUT 
EVEN THOUGH WE READ BOTH STRINGS 
(NO OTHER PLACE TO CHECK 
FOR INTERRUPTS IN LOOP!) 



ZZ-ESOAA-124.0 ; CHAR 
P1W124.MCR 600.12043 
CHAR .MIC C600. 12043 



J 2 
.MIC C600,12043 Character string H-Jan-82 Fiche 3 Frame J2 Sequence 434 

MICR02 1L(03) 14-Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01, FPLA OE, WCS124 Page 
Character string : CMPC3, CMPC5 



433 



U 01A8, 0D19,2034,C180,F988,0094,47B0 



U 01 AC. 0003.003C0180.Fe00.0082.0A54 



U 0A43. C341,203C,C1F0,2EF8,1500,8A44 



U 0A44. 001D.0020.5DC0.F800.0084.4A45 



U 0A45. 0D18,0034,C180.F988,0000,0A4B 



U 0A48, 0C00.003C,09E0,F908,1404,AA4C 



U 0A4C, 0D00.163C0180.FA78.H88.A792 



16532 
16533 
16534 
16535 
16536 
16537 
16538 
16539 
16540 
16541 
16542 
16543 
16544 
16545 
16546 
16547 
16548 
16549 
16550 
16551 
16552 
16553 
16554 
16555 
16556 
16557 
16558 
16559 
16560 
16561 
16562 
16563 
16564 
16565 
16566 
16567 
16568 
16569 
16570 
16571 
16572 
16573 
16574 
16575 
16576 
16577 
16578 
16579 
16580 
16581 
16582 
16583 
16584 
16585 
16586 



COMPARE LOOP EXITS 

COME HERE IF LOOP EXITED WITH NO DIFFERENCES FOUND - THIS MIGHT 
MEAN WE ARE DONE. AND IT MIGHT MEAN THAT IT IS TIME TO COMPARE 
THE EXCESS BYTES OF THE LONG STRING AGAINST FILLS. 
ON ENTRY FROM COMPARE LOOP, 0=R2, PSL<2> SET ON Q<15:0>, 
SC-16., D=R2 BYTE-SWAPPED, AND R2<15:0> HAVE BEEN ZEROED. 



=10** 



CMPCFILL: 

RCCT13 Q.AND.KC.FFFF3, 
CLK.UBtC, D_DAL.SC, 
SC_SC.ANDNOT.KC.FFFF J. J/CMPC 

; 1 i ** 

LAB R1ftRCCT03_0, SC.ALU. 
J/CWPCFINIS 



PSL<Z> (R2<15:0>=0 — > 
BOTH STRINGS EXHAUSTED) 

6ET LENGTH DIFFERENCE IN RCCT13, 
GET 4 FILL CHARS IN D, 
ZERO SC SO CMPC WILL STORE 
RCCT13 IN RO, AND RE-ENTER LOOP. 

STRINGS ARE TRULY EQUAL - 
CLEAN UP AND EXIT 



COME HERE IF DIFFERENCE FOUND WITH D-COMPARAND FRCM LONGER 
STRING, IDCT03 = SWAPPED XOR OF COMPARANDS, SC & <J<9:5>= NUMBER 
OF LEADING (HIGH-ORDER) ZERO BITS IN IDCT03, LA=R2, 
AND FE = NUMBER OF BYTES IN EACH COMPARAND (1 OR 4). 
STATE<3:0> = 1 ('SECOND READ" BIT SET) 

WHAT WE HAVE TO DO IS FIGURE OUT WHICH ONE OF THE 4 BYTES 
IN THE COMPARANDS IS Tt* FIRST MISMATCHING BYTE, SET THE 
COND CODES ON THE COMP*kE OF THE TWO UNEQUAL BYTES, AND 
BACK UP THE STRING POINTERS/COUNTERS TO THE MISMATCH POINT. 



CMPCNEQUAL: 

RCR153 Q.RIGHT.1, 
D D.SWA>, Q.IDCT03, 
STATE STATE+FE, 
FE.EACU 



Q D.XOR.Q, 
St_SC.ANDNOT.KC. 73 



D DAL.SC, 
RCCT13.LA.AND. KC.FFFF3 



D_Q, Q D, LC RCCT13, 
STATE.5TATE-RC.23 



D DAL.SC, 
SttSTATE_STATE-RCR153(EXP> , 

STATEA? 



R15<8:4> NOW HAS * BITS, 
SWAP LONG COMPARAND, GET XOR IN 
STATE<3:0> = » BYTES READ ♦ 1 
AND SAVE A COPY IN FE 



RECONSTRUCT SHORT COMPARAND 
BYTE-SWAPPED IN Q, SC GETS 
SHIFT COUNT TO BYTE-NORMALIZE 
COMPARANDS 

BYTE-NORMALIZE LONG COMPARAND 
GET LENGTH DIFF (OR 0) IN RCCT13 



SWAP COMPARANDS 

STATE<3:0> = BYTES READ - 1 



BYTE-NORMALIZE SHORT COMPARAND 
SC<1 :0> = # BYTES TO BACK UP - 1 
THIS UNAVOIDABLY DESTROYS STAfE! 
CHECK WHICH WAY TO COMPARE BYTES. 



U 0792, 001D,0008,F180,F880.00F4,4A4D 



U 0793. 001D,2008,F180.F880,OOF4,4A4D 



ZZ-ESOAA-124.0 ; CHAR 
P1U124.r,:R 600-12043 
CHAR JilC [600,12043 



K 2 

.MIC [600,12043 Character string 14-Jan-82 Fiche 3 Frame K2 Sequence 435 

MICR02 1L(03) 14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA 0£, WCS124 Page 
Character string : CMPC3, CMPC5 



434 



16587 
16588 
16589 
16590 
16591 
16592 
16593 
16594 
16595 
16596 
16597 
16598 
16599 



=**10 



ALU D-Q-1, SET.CC(LONG), 
SC.5C . ANDN0T.KC.FFFC3 , 
LA_RA[R03. J/CMPCADJ 

;**11 — 
ALU Q-D-1, SET.CC(LONG), 
SC 5C.ANDNOc.*t.FFFC3, 
LA RA[R03, J/CMPCADJ 



STATE<4> (SRC2 STRING LARGER) 

NOW THAT COMPARANDS ARE BYTE-NORMALIZED, 

A LWD SUBTRACT WILL PRODUCE RIGHT CC'S 

COMPARE UNEQUAL BYTES 

CLEAR JUNK FROM SC 

NOW GO ADJUST REGISTERS 



COMPARE UNEQUAL BYTES 

CLEAR CRAP FROM SC 

NOW GO ADJUST REGISTERS 



L 2 
ZZ-ESOAA-124.0 ; CHAR .MIC C600. 12043 Character string 14-Jan-82 Fiche 3 Frame L2 
; P1W124.MCR 600.12043 M1CR02 1L(03) 14-Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01, FPLA OE, WCS1 
; CHAR .MIC £600,12043 Character string : CMPC3, CMPC5 



Sequence 436 



Page 435 



U OA4D, 0818,0010, 1D80,FA80,0080.CA53 
U OA53. OO11,0O14,0180,FBO0,14O0,6A54 

U 0A54, 0018,0000,1DCO,FB80,2000,OA55 

U OA55, 2014. 1638. 7580, F 899, 5604, 4799 
U 0799. 0018,1600. 1D80,629C, 0000, 0648 

U 079B, 0803, 163C,0180,6284, 0082, 0648 

U 0648, 0001 ,003C,1 980, FA90, 0084, 6A59 
U 0649, 0018,0000,1D80,FA88,0000,OA58 
U OA58, 0001,203C,0980,FA98,0084,6A59 

U 0A59, 0010,0038,0180,F8E8, 0000, 0062 



16600 

16601 CMPCADJ: 

16602 RCR03 LA+KCSC3+1. D.ALU, 

16603 SC_SC*1 
16604 

16605 ; 

16606 LAB.R1tRCCT03„D+LC, STATE.FE 
16607 

16608 ; 

16609 CMPCFINIS: 



LC RCCT038R1.LA-KCSC3, Q.ALU, 
CLR.FPD 



LA RACR33, PC&VA PC, FLUSH. 18, 
STJTE STATE .ANDNDT . KC . 203 , 



STATES? 



-; STATE<5> (SHORT STRING EXHAUSTED) 
RCR33 LA-KCSC3.PC PC+1.L0AD.I8, ; SHORT STR NOT GONE - UPDATE 
STATE??, J/CMPCSETREGS ; SHORT STRING POINTER BY EXCESS 



16610 

16611 

16612 

16613 

16614 

16615 

16616 

16617 

16618 =**01 

16619 

16620 

16621 

16622 

16623 

16624 

16625 

16626 

16627 =***0 

16628 CMPCSETREGS: 

16629 RCR23J), SC KCZER03. J/CMPCEXIT 
16630 

1 6631 ; »**1 

16632 PCR13 LA-KCSC3 
16633 

16635 RCRiroririccTS"" 

16636 

1 6637 : 

16638 CMPCEXIT 



; WHILE WE TEST IT. 



ASSUMING SHORT STRING NOT GONE, 
SET SHORT STRING LENGTH TO 
COUNT + NUMBER OF EXCESS BYTES. 

COMPUTE LONG STRING LENGTH, 
RESTORE STATE 



UPDATE LONG STRING ADDRESS 
BY NUMBER OF EXCESS BYTES 



KILL OLD CONTENTS OF INST BUF, 
CLEAR "SHORT STR EXHAUSTED" 



;**11- 

RCR03.0, D ALU, SC.ALU, 

PC PC+1, LOAD. IB, 



SHORT STRING EXHAUSTED - 
INHIBIT BUMP OF SHORT STRING PTR, 



STATE4?, J/CMPCSETREGS ; ZERO SHORT STRING LENGTH 

STATE<4> (STRING2 LONGER THAN STRIN61 ) 
STRING1 LONGER - SWAP RO ft R2 

STRING2 LONGER - SWAP R1 & R3 



16639 
16640 



R(SC)_LC, J/IRD 



; STORE LONG LENGTH IN RO OR R2, 
; AND EXIT 



U 9658, 0000,003C.0180,F800,0000.0733 
U 0659, 000O.0O3C.0180.FA98,O0O0,0733 



m 2 
ZZ-ESOAA-124.0 ; CHAR .MIC £600.12043 Character string U-Jan-82 Fiche 3 Frame M2 Seguence 437 

; P1U124.MCR 600.12043 MICR02 1L(03) 14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01. FPLA OE. WCS124 Page 436 

; CHAR .MIC [600.12043 Character string : CMPC3. CMPC5 

CMPC3/CMPC5 FAULT AND INTERRUPT HANDLING CODE. 



U 0049. 0800.CC3C.0180.F880.1408.6A5A 

U 0A5A, 0817.8014. 6180.F801.1604.4A5C 

U 0A5C. 080O.0O3C.D1E0.FA10.1404.4A5D 

U 0A5D. 0B03.6O3C.65E0.F988.O094.6A5E 
U 0A5E. ODOO,003C.1980,F800,0084,6780 



16641 
16642 
16643 
16644 
16645 
16646 
16647 

16648 =***0 

16649 CMPCFPD: 

16650 J/MOVCPACKST 

16651 ;***1~ 

16652 CMPCFPD1: 

16653 RCR33 LA, J/MOVCPACKST 
16654 
16655 
16656 

16657 ; CMPC3/CMPC5 FIRST PART DONE ROUTINE - ENTER HERE 

16658 ; IF OPCODE ENCOUNTERED WHILE PSL<FPD> IS SET. 
16659 

16660 49: 

16661 CMPCRESTART: 



COME HERE ON READ FAULTS AND INTERRUPTS. 

ENTER AT CMPCFPD IF FAULT/INTERRUPT OCCURRED BEFORE SECOND READ, 

ENTER AT CMPCFPD1 IF IT OCCURRED DURING/AFTER SECOND READ. 

Of. ENTRY D=RO, LA=OLD R3 IF SECOND READ. 

; STATE<0> (2ND READ OF LOOP HAS OCCURRED) 

.-THIS CAN BE BUMMED OUT 

# 

; RESTORE OLD VALUE OF R3 



16662 
16663 
16664 
16665 
16666 
16667 
16668 
16669 
16670 
16671 
16672 
16673 
16674 
16675 
16676 
16677 



LA.RACR03, D.LA. STATE.AMX.EXP 



PCfcVA D.0XTCBYTE3+PC, D D.SUAP, 
STATE.STATE . ANDNOT . KC . F3 



0. D. D RCR23. 
STATE.5TATE.ANDN0T.KC.C03 

RCCT13 Q.0XTCWORD3, CLK.UBCC, 
Q.D. D.D.SUAP, SC.KC.103 

D.DAL. SC. SC.KCZER03, J/CMPC 



LOAD STATE FROM R0<14:7>, 
D<7:0>=PCDELTA, D<31:16>=R0 

ADD PC-DELTA TO PC, D<15:0> RO, 
CLEAR SOME GARBAGE FROM STATE 



Q<15:0> RO, D<31:16> FILLS, 
CLEAR REST OF JUNK FROM STATE 



SAVE NEW CONTENTS OF RO, 
PREPARE TO REPLICATE FILLS 



RE-ENTER MAIN LINE TO SET FPD. 



ZZ-ESOAA-124.0 ; CHAR .MIC C600J204: 

; P1W124.MCR 600.12043 MICR02 1L(03) 

; CHAR .MIC [600,12043 Character string 



N 2 
Character string K-Jan-82 Fiche 3 Frame N2 Seguence 43f 

H-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, F*>LA 0E, WCS124 Page 437 

: MATCHC 



U 048A, 0019,2035, C180,F980,0000,037E 
U 049A, 0001,203C,0180,F988,0000,Oi14 

U 0114, OC19.0035,C180,F990,0000,047E 
U 0174, 0C01 . 003C, 01 80, FA98, 0000, 04 10 



16678 
16679 
16680 
16681 
16682 
16683 
16684 
16685 
16686 
16687 
16688 
16689 
16690 
16691 
16692 
16693 
1669h 
16695 
16696 
16697 
16698 
16699 
16700 
16701 
16702 
16703 
16704 
16705 
16706 
16707 
16708 
16709 
16710 
16711 
16712 
16713 
16714 
16715 
j716 
16717 
16718 
16719 
16720 
16721 
16722 
16723 
16724 
16725 
16726 



.TOC 



Character string 



MATCHC' 



ALGORITHM: 

THE FIRST CHARACTER Of THE OBJECT IS COMPARED TO SEQUENTIAL 

CHARACTERS IN THE SOURCE UNTIL THERE IS A MATCH. 

THIS IS REFERRED TO AS THE 'XJUTER LOOP". 

THEN THE "INNER LOOP" IS ENTERED TO COMPARE SUCCESSIVE CHARACTERS 

(STARTING AT CHAR 2) OF THE OBJECT AGAINST THE SOURCE. 

IF THE ENTIRE OBJECT STRING IS FOUND IN THE SOURCE STRING, 

IT IS A MATCH. 

IF THERE I* A MISMATCH IN THE INNER LOOP, THE COMPARISON CONTINUES 

WITH THE NEXT CHARACTER OF THE SOURCE ♦ THE 1ST CHARACTER 

OF THE OBJECT. 

INPUTS: 

Q = OBJECT LENGTHdST OPERAND) 

D = OBJECT ADDRC2ND OPERAND) 

AFTER INITIALIZTION, REGISTER USAGE DURING EXECUTION IS: 

RO OBJECT LENGTH - 1 

R1 0BJEC1 ADDR 

R2 OBJECT LENGTH - SOURCE LENGTH -1 

R3 SOURCE ADDR 

RCO INNER LOOP COUNTER. STARTS CUT = -RO 

USED TO COMPARE CHARACTERS 2 THRU END OF OBJEC. 

OUTPUTS: 

RO = IF MATCH, OTHERWISE NUMBER OF BYTES REMAINING IN OBJ WHEN 

SRC EXHAUSTED 
R1 = ADDR OF END OF OBJ + 1 IF MATCH, OTHERWISE ADDR OF NEXT BYTE 

OF OBJ 
R2 = NUMBER OF BYTES REMAINING IN SRC IF MATCH, OTHERWISE 
R3 = ADDR OF LAST BYTE MATCHED + 1 , OR ADDR OF END OF SRC + 1 



48A: 



49A: 



CALL,J/SPEC, 
RCCT03.Q.AND.KC.FFFF3 



RCCTUJJ 



CALL,J/ASPC, 

DO, 

HCCT2J D.AND.KC.FFFFJ 



=1 1 *****' 



RCR3J D, 
D 



GET SRC LENGTHCARG 3) 
SAVE OBJ LEN(ARG 1) 



SAVE OBJ ADDR(ARG 2) 



GET SRC ADDRCAnG 4) 

COPY OBJ ADDR .0 RETURNED IN Q 

SAVE SRC LENCAk'J 3) 



SAVE SRC ADDR 
COPY OBJ ADDR 



B 3 

ZZ-ESOAA-124.0 ; CHAR J* : C600, 12043 Character string 14-Jan-82 

; P1U124.MCR 600,12043 MICR02 1L(03) 14-Jan-82 15:30:16 VAX11/780 

; CHAR .MIC [600,12043 Character string : MATCHC 



U 0410, 0O01.003D.3DF0,2E88.0000,09E4 

U 0450, 0810,0039,01 80,F900,0010,OE16 
U 0451, 0000,003C.0580,F800.0104.6A8D 
U 0452, 0000,003C,0580,F800,0104,6A8D 

U 0453, 0810,0138,01 E0,F910,0010,066C 

U 066C, 081f ,£108,0180,FA90,0010,0678 
U 066D, 0001,003C,0180,FA90,0000,06AC 

U 0678, 0019,2300,0580, FA80,0000,07C1 
U 0679, OC01,203C,0187,FA80,0000,0?F1 



16727 =0****00; 

16728 RCR1J D, 

16729 Q IDCPSL3, 

16730 CAlL.J/CLRPSLCC 
16731 
16732 =1****00.- 



16733 

16734 

16735 

16736 

16737 

16738 

16739 

16740 

16741 

16742 

167^3 

16744 

16745 

16746 

16747 =0 

16748 

16749 

16750 

16751 

16752 

16753 

16754 

16755 

16756 =0 

16757 MAT1 
16758 
16759 
16760 
16761 
16762 
16763 
16764 
16765 



D RCL"T03,CLK.UBCC, 
CAU.J/SETFPD 



Fiche 3 Frame B3 Sequence 439 
Microcode : PCS 01, FPLA 0E, WCS124 Page 



SUITABLE FOR CLRPSLCC ♦ SETFPD 

COPY OBJ ADDR 

GET PSL FOR CLRPSLCC 

CLEAR PSL CC 



CHECK ON OBJ LEN 
SET FPD BIT IN PSL 



438 



J/MATFPD, FEJCC.13 
J/MATFPD, FE.KC.13 



Z?, 

D RCCT23.CLK.UBCC 



D Q-D-1,CLK.UBCC, 
RrR23 O-D-1, 
Z?,J/MAT1 

J/MATD0NEMATCH1 ,RCR23_D 



RL"R03 Q-KC.13, 
C31?,J7MATCHSTART 

J/R2ZERO,RCR03 Q, 
SGN/CLR.SD+SS 



FPD RESTART ADRR 



FPD RESTART ADRR 



IF OBJ LFN = 0, ALL DONE (MATCH) 

COPY OBJ LEN 

CHECK ON SRC LENGTH 

ALIKZ> 

OBJ LEN-SRC LEN-1 = MAXIMUM NUMBER 
BYTES TO COMPARE IN OUTER LOOP 
BRANCH ON SRC LEN = 

ALU = 

OBJ LEN = 

RO = UNDEF, R1 = START OBJ ADDR 

R3 = START SRC AD^R 

ALIKZ> 

INNER LOOP COUNTER 

ANYTHING TO COMPARE? 

ALU = 

SRC LEN = 

CLEAR "WRITE REG" FLAG 

RO = OBJ LEN, R1 = START OBJ ADDR. 

R2 = OL-SL-i, R3 = START SRC ADDR 



C 3 

ZZ-ESOAA-124.0 ; CHAR .MIC C600, 12043 Character string 14-Jan-82 Fiche 3 Frame C3 Seguence 440 

; P1W124.MCR 600.12043 MICR02 1L(03) 14-Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01. FPLA 0E, UCS1 24 Page 439 

; CHAR .MIC [600.12043 Character string : MATCHC OUTER LOOP 



U °7C1. OOOO.0O3C.0180.F'O8.02OO.0A6C 
U 07C3, 0010,0038.01 CO.F910.0000.0A84 
U 0A6C, 0000, 803C. 1980. 4000.1 404. 6A6D 

U 0A6D. 0000.003C.01EO.FA18.4200.0A70 

U 0A70. 0000.8E3C. 01 80.4000.0000.0896 

U 0896. 001D.8020.0180.FA10.0010.0A71 
U *897, 0000. 003C.1980.F800. 0104, 6A8D 



Character string 



: MATCHC OUTER LOOP' 



16766 .TOC 
16767 

16768 ;ALL INITIALIZATION HAS BEEN DONE. PREPARE TO READ THE 

16769 .-FIRST CHARACTER OF THE OBJECT + THE NEXTdST IF AT BEGINNING) 

16770 .CHARACTER OF THE SOURCE 

16771 ;R0 = OBJ LEN -1 

16772 ;R1 = START OBJ ADDR 

16773 ;R2 = OBJ LEN - SRC LEN -1 

16774 ;R3 * START SRC ADDR 
16775 

16776 *01 

16777 MATCHSTART: 

16778 VA RCR13. 

16779 J/MATOUTERLOOP 
16780 

16781 ;11 — 

16782 Q RCCT23. 

16783 J7MATDONEN0MATCH2 
16784 
16785 

16786 MATOUTERLOOP: 

16787 DCBYTE3 CACHE. STATE OUTER 
16788 
16789 

16790 MATOUT1 : 

16791 VA RCR33. 

16792 Q 5, 

16793 iflTRPT. STROBE 
16794 

16795 ; 

16796 MATOUT2: 

16797 DCBYTE3 CACHE. 

16798 BEN/INTERRUPT 
16799 

16800 =110 

16801 ALU D.XOR.Q.CLK.UBCC.DT/BYTE, 

16802 LAB RCR23.J/MATOUT3 
16803 

1 6804 ; 1 1 1 

16805 J/MATFPD.FE KCZER03 



ALU<C> 

ADDR OF 1ST CHAR OF OBJ 



ALU <C> = 1 

SRC LEN < OBJ LEN 

RO = OBJ LEN - 1 . R1 = START OBJ ADDR 

R2 = OL-SL-1 . R3 = NEXT SRC ADDR 



READ 1ST CHAR OF OBJECT 



READ NEXT (MAY BE 1ST) CHAR OF SRC 
COPY 1ST CHAR OF OBJ 
CHECK FOR INTERRUPTS 



READ 1 BYTE 
INTERRUPT PENDING? 

INTERRUPT? 

COMPARE BYTE OF SRC WITH 1ST BYTE OF OBJ 

LATCH OUTER LOOP COUNTER 

YES, AN INTERRUPT 
INTERRUPT PENDING 



U 0A71. 0018.01 14.0580.FA90.0010.067C 
U 067C. 0000,013C,0180.FA18,0000,069C 
U 067D. 08O0.0O3C,0180.FA00,0O00.0A74 

U 069C. 0018.0014, 0580, FA98, 4200. 0A70 
U 069D, OOO0.0O3C.01C0.FA00.0O00.0A8O 



ZZ-ESOAA-124.0 ; CHAR .MIC [600.12043 
; P1U124.MCR 600.12043 MICR02 1L 
; CHAR .MIC [600. 12043 Character string 



D 3 

Character string 14-Jan-82 



. ... _ Seguence 441 

MICR02 1L(C3> 14-Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01. FPLA OE, UCS124 Page 440 



Fiche 3 Frame D3 



MATCHC OUTER LOOP 



16806 .PAGE 

16807 

16808 

16809 MAT0UT3: 

16810 R[R23J_A+K[.1J,CLK.UBCC, 

16811 Z? 
16812 

16813 =0 

16814 LABRC33. 

16815 J/M*TUNEQ,Z? 
16816 

16817 ;1 

16818 J/MATEQ. 

16819 D.RCR03 
16820 

16821 =0 ; 

16822 MATUNEQ: 

16823 VA LA+K[.13.R[R33 LA+KC.13. 

16824 INTRPT. STROBE, J/M&TOUT2 
16825 

16826 ;1 

16827 Q RCR03. 

16828 J7MATD0NEN0MATCH3 
16829 
16830 
16831 



MORE TO DO? 
A MATCH? 

ALU Z 

NO MATCH 

OUTER LOOP COUNTER = 0? 

ALU = 

A MATCH FOR 1ST CHAR OF OBJ FOUND 

GET OBJ LEN - 1 

ALU Z 

MORE TO DO. INCREMENT SRC ADD 
CHECK FOR INTERRUPTS 

ALU = 

NO MORE CHARACTERS TO TRY IN SRC 

NO MATCH. RO = OBJ LEN -1 

R1 = STAR? OBJ ADDR. R2 = 0. 

R3 = NEXT SRC ADDR 



ZZ-ESOAA-124.0 ; CHAR .MIC C600.12043 

; P1U124.MCR 600-1 204D 

; CHAR .MIC C600,120A] Character string 



E 3 

Character string 14-Jan-82 



Fiche 3 Frame E3 



_ ___ _ _ _ ._.... _. Sequence 442 

MICR02 1L<03) 14-Jan-82 15:30:16 VAX11/730 Microcode : PCS 01, FPU 0£, WCS124 Page 441 



: MATCHC INNER LOOP 

Character string 



U 0A74, 001F,2000,0180,FB00.0010.06A1 

U 06A0, 0000,003C,01CO,FAOO,0000,OA7A 
U06A1, 0018,01 14, 0580,FA88,0200,06A4 

U 06A4. 00O0,803C,0580,4218,1404.6A75 
U 06A5, 0OO0,003C,0180,FA18,0000,0a89 

U 0A75, 0018,0014,05EO,FA98,4200,OA78 

U 0A78, 0OO0,8E3C,0D80.4O00, 1404, 6886 

U 08B6, 0O1D,A020,0180,F900,0O10,0A79 
U 0887, 0000,003C,1980,F800,0104,6A8D 



U 0A79, 0813,011 0,0180^800,0010, 06A0 



;16832 .TOC 

: 16833 

:16834 MATEQ: LAB R1fcRCCT03.0-D,CLK.UBCC, 

: 16835 J/MATIN1 

;16836 

16837 =0 ; 

; 16838 MATIN2: 

; 16839 J/MATNOMATCH, 

; 16840 Q.RCR03 

;16841 

: 16842 ;1 

;16843 MATIN1: VA.LA+KC.n,RCR13.LA+»CC.1J, 
; 16844 IT 

16845 

; 16846 =0 

; 16847 MATIN5: D [BYTE,! CACHE, 
; 16848 LABRCR33, 

; 16849 STATE INNER08J, 

16850 J/MATTN3 

,16851 

;16852 ;1 
:16853 J/MATDONEMATCH,LAB RCR3J 
; 16854 
; 1 6855 

•16857 MATIN3: RCR3J LA+KC.U.VA LA+KC.13, 

: 16858 OD, 

; 16859 IRTRPT.3TROBE 

; 16860 

16861 

16862 

16863 

16864 
,16865 
; 16866 =110 

16867 

16868 

16869 

16870 
: 16871 
: 16872 
; 1 6873 ; 

16874 MATIN4: LAB R1fcRCCT03 O+LC+1, 

16875 CLKTUBCC, 
: 16876 D O+LC+1, 

16877 

; 16878 Z?,J/MATIN2 
16879 
1 6880 



DEBYTE3 CACHE, 
STATE IRNERSRC, 
BEN/lRTERRUPT 



ALU Q.XOR.D,CUC.UBCC,DT/BYTE, 
LCjJCCT0D,J/MATIN4 

;111 

J/MATFPD,FE.KCZER03 



MATCHC INNER LOOP" 

;MAKE A DECREMENTING INNER LOOP COUNTER 



rALU Z 

MISMATCH IN INNER LOOP. 

;BACK TO OUTER LOOP 

rLOAD ORIGINAL OBJ LEN - 1 

;ALU = 

INCREMENT OBJ ADDR 
rOBJ LEN = 0? 

rALU Z 

;READ 1 BYTE OF OBJ 

r LATCH SRC ADDR 



:ALU = 

; FOUND ALL OF OBJECT IN SRC 

?R0 = OBJ LEN, R1 = LAST OBJ ADDR + 1 

;R2 = CNTR, R3 = LAST SRC READ 

•INCREMENT SRC ADDR 

:COPY OBJ CHAR 

: CHECK FOR INTERRUPTS 



;READ 1 BYTE OF SRC 

•INTERRUPT PENDING? 

INTERRUPT? 
: COMPARE BYTES 
; LATCH INNER LOOP COUNTER 

•GO SERVICE INTERRUPT 



INCREMENT INNER COUNTER 
:SEE IF IT'S NOW 
;SAVE -<# BYTES NOT EXAMINED IN 

INNER LOOP) IN CASE NO MATCH 
;A MATCH? 



U 0A7A, 081D.2014.01E0.FA08.0O00.0A7C 

U 0A7C, 001 C. 2000,0180. FA88.0200.0A7D 
U 0A7D. 0000.403C.0180.FA10.0010.0A7E 



F 3 
ZZ-ESOAA-124.0 ; CHAR .MIC [600,12043 Character string H-Jan-82 Fiche 3 Frame F3 
; P1W1 24. MCR 600.12043 MICR02 1L(03) 14-Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01. FPLA 06. WCS1 
; CHAR .MIC C600. 12043 Character string : MATCHC INNER LOOP 

16881 MATNOMATCH: 

16882 ;R0 ORIGINAL INNER LENGTH - 1 

16883 ;R1 LAST OBJ CHAR READ 

16884 ;R2 0BJLEN-SRCLEN-1= -(OUTER COUNTER) ORIGINALLY 

16885 ;R3 LAST SRC CHAR READ 

16886 ;RC MINUS NUMBER BYTES LEFT IN INNER LOOP 
16887 

D.Q+D. QJ>, LAB.RCR13 



Sequence 443 
124 



Page 442 



U 0A7E, 0819,01 00.0580,FA18,0000,06A8 

U 06A8, 001C,2000,0180,FA98,OOOC.OA6C 
U 06A9, 001F, 0000,01 CO.F 800. 0000, 0A80 



16888 

16889 

16890 

16891 

16892 

16893 

16894 

16895 

16896 

16897 

16898 

16899 

16900 

16901 

16902 

16903 

16904 =0 

16905 

16906 

16907 

16908 

16909 



RCR13 LA-D. 
VA.LA-D 

ALU_RCR23 , CLK. UBCC , DT/WORD 



LAB.RCR33. D D-KC.13, 
Z? 



RCR33 LA-D, 
J/MATDUTERLOOP 



. ! 

Q_0-Q, J/MATD0NEN0MATCH3 



ORIGNAL - CURRENT = # READ 



RESET OBJ ADDR TO START OF STRING 
PREPARE TO RE-READ 1ST OBJ BYTE 



SEE IF ANY LEFT TO DO IN OUTER LOOP 
THIS IS DT/W FOR THE CASE WHERE 
R2 = UPON ENTERING INNER. 
IF FPD. THEN R2 FFFFOOOO 
AT RESTART(FRC#CORNOT FFFF). 

DECREMENT SRC BY 1 

BRANCH ON ANY LEFT IN OUTER 

ALU Z 

RESET SRC ADDR SO READ NEXT BYTE 

I.E. NEXT ONE IN OUTER LOOP CONTEXT 



Q SET UP TO BUMP R3 PAST SRC END 



ZZ-ESOAA-124.0 ; CHAR .MIC C600.120A3 
; P1W124.MCR 600.1 204D MICR02 1L 
; CHAR .MIC [600.12043 Character string 



6 3 

Character string 14-Jan-82 Fiche 3 Frame 63 Seguence 444 
MICR02 1L<03) K-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA OE, WCS124 



U 0A80, 0019.2014,05CO,FA18.0000,OA81 

U 0A81, 001C.0014.0180.FA98.0000.0A85 
U 0A84. 0000.003C,0180,FA18,0000,OA81 
U 0A85. 0000,003C,0180,FAOO,0000,OA88 

U 0A88, 0018. 0014. 0587. FA80.0000.09F1 



: MATCHC TERMINATION 

Character string 



Fiche 3 Frame 63 
ode : PCS 01, Ff 

: MATCHC TERMINATION" 



Page 443 



16910 .TOC 
16911 

16912 ;I* NO NATCH. EXIT WITH: 

16913 ;R # BYTES LEFT IN OBJ WHEN SRC LEN = 

16914 ;R 1 ADDR OF NEXT BYTE OF OBJ TO EXAM WHEN SRC LEN = 

16915 ;R 2 

16916 ;R 3 END OF SRC ♦ 1 
16917 



.6918 MATD0NEN0MATCH3: 

1 691 9 LAB RCR33 ,Q Q+KC .13. 

16920 J/M*TDONENOWATCH 
16921 

16922 ; 

1 6923 MATD0NEN0MATCH : 
^6924 RCR33LA+Q, 
16925 J/MATD0NEN0MATCH1 
16926 
16927 

16928 MATDONEN0MATCH2: 

16929 LAB RCR33,J/MATDONENOMATCH 
16930 

16931 

16932 MATD0NEN0MATCH1 : 

16933 LAB RCR03 
16934 
16935 

16936 RCROJ LA+KC.13, 

16937 SGN/CCR.SD+SS, 

16938 J/R2ZER0 



ALU - 

Q = ORIGINAL OBJECT LENGTH 



NOTHING LEFT TO LOOK AT IN OUTER 

RO = OBJ LEN -1, R1 = START OBJ ADDR 

R2 = 0, R3 = NEXT SRC ADDR 



ORIG OBJ LENGTH 

CLEAR 'VIRITE REG" FLAG 



H 3 

ZZ-ES0AA-124.0 ; CHAR .MIC C600.12043 Character string H-Jan-82 

; P1W124.MCR 600,12043 MICR02 1L(03) K-Jan-82 15:30:16 VAX11/780 

; CHAR .MIC C600.120A2 Character string : MATCHC TERMINATION 



Fiche 3 Frame H3 Sequence 445 
Microcode : PCS 01. FPLA OE, WCS124 Page 444 



U 0A89, 0018,0014,0580, FA98,0000,0A8A 
U 0A8A, 0800,403C, 01 F8,FA10,0010,OA8C 

U 0A8C, 001D,2100,0180,FA90,0000,06AC 

U 06AC, 0003,003C, 0180,FA80,2050,05AE 
U 06AD, 0003,003C. 0180, FA90, 0000, 06AC 



16 939 . 

16940 ;IF A MATCH, EXIT WITH: 

16941 ;R 

16942 ;R 1 END OF OBJ ♦ 1 

16943 ;R 2 # BYTES LEFT IN SRC 

16944 ;R 3 LAST MATCHING BYTE ADD* 
16945 
16946 MATDONEMATCH: 



♦ 1 



16947 
16948 
16949 
16950 
16951 
16952 
16953 
16954 
16955 
16956 
16957 
16958 
16959 

16960 =0 ; 

16961 MATD0NEMATCH1 : 

16962 RCROJ 0,N*Z_ALU.VfcC .0, 

16963 CLR.fPD,J/sTRINGFINRl 
16964 

16965 ;V 

16966 RCR23 0, 

16967 J/MAT50NEMATCH1 
16968 
16969 



RCR33_LA«*C.1J 



D RCR2J, 

Q 0, 

CCK.UBCCPT/WORD 



RCR23 Q-D, 
Z? 



POINT PAST END OF STRING 



NEGATE R2(MAKE IT POSITIVE) 

TO BE # BYTES SRC LEFT 

FOR THE CASE WHERE STRINGS ARE 

SAME LENGTH, IF A FPD WAS HANDLED, 

THEN R2 FFFF0000 INSTEAD OF 00000000 

SO DETECT THAT NOW 

EFFECT 0-D TO RESET COUNTER 
SEE IF R2 = 

ALU <Z> 

SET RO = 0, ♦ SET PSL Z 
CLEAR FPD BIT IN PSL 

ALU = 
R2 = 



U 0A8D, 0810.0038.65F8.F900.0084.6A8E 
U 0A8E, OD18.0034.C1CO,FA10,0000,OA90 
U 0A90, 0O1D.0O30,0180,FA90,00O0,O6D8 



I 3 

ZZ-ESQAA-124.0 ; CHAR .MIC [600.12043 Character string 14-Jan-82 Fiche 3 Frame 13 *c*uen 
; P1W124.MCR 600-12043 MICR02 1L(03) 14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA OE. WCS124 
; CHAR .MIC [600.12043 Character string : MATCHC FPD ♦ RESTART 



ce 446 



Page 445 



U 0A91, 0D00.0O3C,F1C0,FA18, 1404, 4800 

U 0800, 0C19,0O1D.Cl80,F980,0OO0,0E16 
U 0801, 0O0O,0O3C, 0180, F800, 0000, 0A8D 
U 0802, 0O00.0O3C.0180,F800.0000,0A8D 

U 0803, 0000, 173C, 01 80, FA03, 0200, 0808 



16970 .TOC 

16971 

16972 

16973 MATFPD: 

16974 



Character string 



MATCHC FPD ♦ RESTART' 



D RC[T03, 

St.JCC.10J, 

Q_0 



D.DAL. SC, 
Q_R[R23.AND.KL.FFFF3 



R[R23 D.OR.Q, 
J/FPDPACK 



D<31:16>=RC(T0) 
PRESERVE LOU WORD 



SAVE BOTH COUNTERS 

60 GET STATE + PC DELTA 



16975 
16976 
16977 
16978 
16979 
16980 
16981 
16982 
16983 
16984 
16985 
16986 
16987 

16988 MATCHCUNSCRAMBLE: 

16989 .-RESTART CODE INITIALLY SHARED WITH EDITPC. ONCE HERE: 

16990 .-OUTER: JUST RE-READ AT CURRENT ADDRS 

16991 .-INNEROBJ: DECREMENT R3 THEN 

16992 ,-INNERSRC: RE-READ R1 
16993 

D DAL.SC, 

STATE STATE. ANDN0T.K[.FFFC3. 

Q RCR3J 



SAVE CURRENT INNERLOOP COUNTER 

16(10) FOR DAL 

ROTATE IN OS DURING SHIFT 



16994 

16995 

16996 

16997 

16998 =00 

16999 

17000 

17001 

17002 

17003 

17004 

17005 

17006 

17007 

17008 

17009 

17010 

17011 

17012 

17013 

17014 

17015 



DO, 

RCCT03 D.0RN0T.KL.FFFF3, 

CALL.J7SETFPD 



J/MATFPD 
J/MATFPD 



VA RCR13, 
BER/STATE3-0 



UNPACK R2 

PROTECT AGAINST UNDEFINED BITS 

LOAD SRC ADDR 



RETURN3 

MOVE SRC ADDR TO D 

RESTORE -(# BYTES LEFT IN INNER LOOP) 

SET FPD BIT 



SPECIFY FPD ADDR 
SPECIFY FPD ADDR 



PREPARE TO REREAD OBJ 

BRANCH ACCORDING TO WHERE INTERRUPTED 



*********************************************** 

* Patch no. 004, PCS 0803 trapped to WCS 1143 * 

*********************************************** 



J 3 



ZZ-ES0AA-124.0 ; CHAR .MIC [600.1204:3 Character string 14-Jan-82 Fiche 3 Frame J3 Seguence 447 

; P1U124.MCR 600.12043 MICR02 1L(03) 14-Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01. FPU 0E. WCS124 Page 446 

; CHAR .MIC C600.12043 Character string : MATCHC FPD ♦ RESTART 



U 0808. 0000.803C.1980.4000.1404.6A6D 

U 0809, 0000.803C.0580.4218.1404.6A75 
U 0808. 0019.0000.0580. FA98.0000.06A4 



17016 =**00 

17017 

17018 

17019 

17020 

17021 

17022 

17023 

17024 

17025 

17026 

17027 =**11 

17028 

17029 



D»VTE3 CACHE. 
STATE OUTER. 
J/MATDUT1 

; **01« 
DCBYTE3 CACHE, 
STATE IRNEROBJ. 
LAB JOS}. 
J/M*TIN3 



RCR3J D-KC.13, 
J/MATIN5 



<1 :0> OF STATE 
RE-READ OUTER BYTE 
WAS IN OUTER LOOP 



RE-READ OBJ BYTE 

WAS READING OBJ IN INNER LOOP 



DECREMENT SRC ADDR 



ZZ-ESOAA-124.0 ; CHAR 
P1W124.MCR 600.12043 
CHAR .MIC r.600, 12043 



.MIC C600, 12043 

MICR02 1L(03) 
Character string 



K 3 
Character string 14-Jan-82 Fiche 3 frme K3 Seguence 448 
K-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA 0£, WCS124 Page 
: MOVTC, MOVTUC 



447 



U 03C3. 0003,603D,0180.F980,0000,037E 
U 03D3, 0001,203C,0180,F988,0000,0023 

U 0023. 0000,003D,0180,F800,0000,047E 

U 0063. OC01,003D,7DF8.F998,0084,60A2 
U 0863. 0000.003C.6580.F918.0104.6A92 

U 0A92, 0010,0038,0180, FAAO.0000.OC5E 



17030 
17031 
17032 
17033 
17034 
17035 
17036 
17037 
17038 
17039 
17040 
17041 
17042 
17043 
17044 
17045 
17046 
17047 
17048 
17049 
17050 
17051 
17052 
17053 
17054 
17055 
17056 
17057 
17058 
17059 
17060 
17061 
17062 
17063 
17064 
17065 
17066 
17067 
17068 
17069 
17070 
17071 
17072 
17073 
17074 
17075 
17076 



.TOC 



Character string 



MOVTC, MOVTUC 



THIS ROUTINE MAKES HEAVY USE OF MOVC FLOWS IN ITS SETUP, 
FAULT/INTERRUPT HANDLING, AND RESTART OPERATIONS. IN ORDER TO 
DO THIS IT WAS NECESSARY TO KEEP THE DESTINATION STRING 
LENGTH AND ADDRESS IN R2/R3 DURING THE MOVE, AND TRANSFER 
IT TO R4/R5 AT THE END. THIS WASTES A FEW CYCLES (ABOUT 5) 
BUT REDUCES THE CODE BY ABOUT 20 WORDS. 

REGISTERS ARE SET iP JUST LIKE MOVC, EXCEPT THAT INSTEAD OF 
R2<31:16> CONTAINING TWO FILL CHARS, R2<31:24> CONTAINS ONE 
COPY OF THE FILL/ESCAPE CHAR AND R2<23:16>=0 
R4, WHICH IS NOT USED AT ALL BY MOVC, IS USED TO STORE THE 
TRANSLATION TABLE ADDRESS. 

STATE BIT ASSIGNMENTS ARE LIKEWISE THE SAME AS MOVC, EXCEPT 
THAT STATE<7> IS ON (TO INDICATE MOVE TRANSLATED) AND 
STATE<6> MEANS MERELY 'DESTINATION LARGER THAN SRC" 
WITHOUT THE IMPLIED MOVC MEANING OF '>CED TO FILL DESTINATION" 
(MOVTC FILLS, MOVTUC DOESN'T). 

;MOVTC/M0VTUC ARGUMENT FETCH - BOTH COME HERE FROM C FORK. 



3C3: 
MOVTC: 

3D3: 



RCCTQ3.Q.OXTCWORD3, CALLCSPEC3 
RCL"T13_Q 



=0****01 ***** 

CALLCASPC3 



=0****11***** 

RCCT33J), D Q, Q 0, SC KC.183, 
CALt[MOVrCMPC53 



=1****1 "]***** 

LC.RCCT33, FEJCC.103 



SAVE SRC LEN, GET FILL/ESC CHAR 
SAVE SRC ADDR 



CONSTRAINT FOR ASPC I M0VCCMPC5 
GET TABLE ADDR, Q GETS FILL 



RETURN FROM ASPC 

SAVE TBL ADR, SET UP TO ISOLATE 
FILL IN D<31:24>, GO GET DST SPEC 



RETURN FROM M0VCCMPC5 

GET TABLE ADDR, SET FE=' BACKWARDS" FLAG 



;END OF DOUBLE CALL CONSTRAINT BLOCK 

RCR43.LC, J/M0VC5SETUP -STORE TABLE ADDR I GO BACK TO MOVC 



ZZ-ESOAA-124.0 ; CHAR .MIC C600.12043 
; P1W124.MCR 6OO-120A3 MICR02 1LC03) 
; CHAR .MIC C600. 12043 Character string 



L 3 
Character string H-Jan-82 Fiche 3 Frame L3 Seo^ence 449 
14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA OE, WCS124 Page 
: MOVTC, HOVTUC 



448 



U 063C. 0001,2028,B5C0.3C00 # 0000.0688 

U 063D, 0010.0038,B5CO,3EA8,0100,A688 
U 063E, 00O1,2O28,B5C0,3C00,0000,0688 
U 0o3F, 0001 ,2028,B5C0,3C00,0000, 0688 



17077 
17078 
17079 
17080 
17081 
17082 
17083 
17084 
17085 
17086 
17087 
17088 
17089 
17090 
17091 
17092 
17093 
17094 
17095 
17096 
17097 
17098 
17099 
17100 
17101 
17102 
17103 



BACK HERE FROM MOVC. REGISTERS SET UP AS FOLLOWS: 

R1 = SRC ADDR 

R2<31:24>=F ILL/ESC. R2<23:16>=0, R2<15:0>=DESTLEN-SRCLEN-1 

R3 = DEST ADDR 

R4 = TRANSLATE TABLE ADDR 

D - 'T80" (FAULT VECTOR ADDRESS) 

= 

LA, LB = R1 

LC = MIN(SRC LEN, OEST LEN) 

SC = FE = 10 

STATE<6> = (DEST LEN > SRC LEN) 

C31 SET IF SRC ADDR < DEST ADDR 

FIRST PART DONE SET BUT VECTOR NOT LOADED. 



=1100 
MOVTCWHATDIR: 

IDCFPDA3.D, Q.NOT.Q, J/M0VTC.1 

;1101 

IDCFPDA3J), Q LC, RCR53.LC, 
FE.SC-FE, J/MDVTC.1 

; 1 1 1 

IDCFPDA3J), Q.NOT.Q, J/M0VTC.1 

; 1111 

IDCFPDA3J), Q.NOT.O, J/M0VTC.1 



C31 AND IRO (BACKWARDS AND MOVTUC) 
MOVTC FORWARDS - Q = -1 



MOVTC BACKWARDS - Q = L0OPC1, 
CLEAR BKWDS FLAG IN FE. 



MOVTUC FORWARDS - Q = -1 



MOVTUC BACKWARDS - DO IT FORWARDS. 



U 0688. 0810,0039,4180,F898.1414,25C4 
U 068A. 0800,OD3C.C1F8,3E10,1400,432A 

U 032A, OB01,2028,0180.F980,0000,OA94 
U 032E, OB1F.0010,0180.F980,0000,OA94 
U 0A«4, 0003,81 3C,C1FO,2DOO,0082,06B4 

U 06B4, 0819,3600.05CO,FB10,0010.064D 



M 3 

ZZ-ESOAA-124.0 ; CHAR .MIC C600. 12043 Character string 14-Jan-82 Ficne 5 frame PU seguenc 

; P1W124.MCR 600.12043 MICR02 1L(03) 14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01. FPLA OE, WCS124 Page 

; CHAR .MIC C600.12043 Character string : MOVTC. MOVTUC 



U 06B5, 0018,1638,05CO,FA08,0000,06AE 

U 064D, 0010,0014. C180.3E88.0200.0A95 
U 064F. 0818,0O38.1D80.F898.O000,08C5 

U 0A95. 0000,803C, 01 CO,*OAO,0000,OA96 

U 0A96, 001F,8014,C1FO,2C98,0200.0A98 
U 0A98, 0000, 9B3C. 0180. 4000, 0000, 08C5 



Fiche 3 Frame M3 Sequence 450 
ocode : PCS 01, FPLA OE, WCS124 

;CALL CONSTRAINT FOR M0VCR8UMP 



449 



;6ET LOOPCT IN D ft SET Z ON IT, 
;SET MOVTC FLAG IN STATE FOR RESTART 
;BUMP R1 ,R3 BY -1 OR LOOPCT 



;SAVE LOOPCT, SET FILL IN 0<31:24> 
;COND. CLEAR BKWD FLAG (M0VCR8UMP 
.-SETS IT) AND TEST DIRECTION 
-.-BRANCH ON Q31 (MOVING FORWARD) 



.♦BACKWARD - INCR = -1 



17104 =0* ; 

17105 KwVTC.1: 

17106 LA RACR33, D LC, CLK.UBCC, 

17107 ST*TE STATE .0R.KC.8O3. 

17108 CALLCM0VCRBUHP3 
17109 

17110 ;1» ■■■■• " 

17111 IDCT03.D, D.RCR23, 00. 

17112 STATE STATETANDNOT.Ff, 031? 
17113 

17114 =01* ; 

17115 MOVTCBKWD: 

17116 RCCT03 NOT.Q, D D.SWAP, 

17117 J/MOVTtGO 
17118 

17120 MOVTCFW 

17121 hvCT03j)+1, D D.SWAP, J/MOVTCGO ;FORWARD - INCR = 1 
17122 

1 71 23 MOVTCGO : ; ; 

17124 ALU D.0XTCBYTE3. SC_ALU, ;GET FILL/ESC CHAR IN SC. 

17125 Ll_RCCT03. QJDCT03, Z? ;LC = INCR, Q = LOOPCT, ENTER LOOP 

17126 =0 

17127 MOVTCLP:; .-BRANCH ON Z (LOOP COUNT EXHAUSTED) 

17128 LAB R1&RCCT23 Q-KC.13. Q.ALU. .'DECREMENT LOOPCT & SAVE A COPY. 

17129 D ACU, CLK.UBtC, STATES?, .-TEST IF FILLING. 

17130 J7M0VTCLP.1 
17131 

17132 * *********************************************** 

17133 ; * Patch no. 049. PCS 0684 trapped to WCS 1177 * 

17134 ; *********************************************** 

17135 

17136 ; 1 

17137 LAB RCR13. Q JCC.13. STATE4?. 

17138 J/MOVTCLPDONE 
17139 

17141 M0VTCLP.1: 

17142 RCR13 LA+LC. VA ALU. IDCT03 D. 

17143 J/M0VTCLP.2 
17144 

17146 D.KCSC3, LA.RACR33, J/M0VTCLP.3 

17147 

1 71 48 ; 

17149 M0VTCLP.2: 

17150 DC8YTE3 CACHE, LA RACR43, Q LA 
17151 

1 71 52 ; 

17153 VA.D.0XTC8YTE3+O, Q.IDCT03, 

17154 LA RACR33 
17155 

1 71 56 ; ; 

17157 DCBYTE3.CACHE, IRO? ;READ TRANSLATED BYTE, BRANCH ON OPCODE 



LOOP OVER - SET UP TO ADJUST 
REGISTERS AND TEST FILL FLAG 

BRANCH ON STATE<5> (FILLING) 

INCR SRC ADDR. LOAD VA, 
SAVE LOOP COUNT. 



GET FILL IN D, GO WRITE IT 

READ SRC BYTE, GFT TABLE ADR IN Q 
INDEX INTO TABLE, RESTORE LOOPCT, 



N 3 

ZZ-ESOAA-124.0 ; CHAR .MIC C600.12043 Character string 14-Jan-82 
; P1U124.MCR 600.1204D MICR02 1L(03) K-Jan-82 15:30:16 
; CHAR .MIC r^00.1204D Character string : MOVTC, MOVTUC 



_ _ _ „ Sequence 451 

VAX"! 1/780 Microcode : PCS 01, FPLA OE, WCS124 Page 450 



U 08C5, 0010,OE14,0180,FA98,0200,08E6 

U 08C7, 001B,8E20,1D80,F800,0182,08D6 

U 08D6, 0010, 1414,0180, FA98.0281 ,0811 
U 0807, 0000,003C,0180,FA98,0000,OF82 

U 0811, 0818,0O1C,C180,FA10,OO0O,0AA2 
U 0813, 0000,81 3C, 01 80, 3000, 0000, 06B4 

U 08E6, 0000,81 3C, 01 80,3000,0000,0684 
U 08E7, 0000,003C.0180,FA98,0000,OF82 



;*111 — 

SC.D.0XTCBYTE3 .X0R.KCSC3 , 

FE.SC, INT? 



RCR33.LA+LC, VA ALU, SC FE, 
SC.GT.O?, J/M0VTCLP.4 

RCR3J_LA, J/MOVC.RDFAULT 



17158 =*101 - 

17159 M0VTCLP.3: 

17160 RCR3J LA+LC. VA ALU, INT?, 

17161 J/MOVTCLP.5 
17162 
17163 
17164 
17165 
17166 

17167 =110 
17168 
17169 
17170 
17171 
17172 
17173 

17174 =*01 

17175 M0VTCLP.4: 

17176 D RCR2J.0RNQT.KC.FFFFJ, 

17177 J7M0VTUCESCAPE 
17178 

17179 ;*11 

17180 CACHE DCBYTEJ, Z?, J/MOVTCLP 
17181 

17183 MOVTCLfJ: 

17184 CACHE.DCBYTEJ, Z?, J/MOVTCi P 
17185 

1 71 86 ; 1 1 1 

17187 RCR33 LA, J/MOVC.RDFAULT 
17188 

17189 



Fiche 3 Frame N3 
• : PCS 01, Ff 

BRANCH ON IRO (MOVTUC) (N ALWAYS 0) 



MOVTC ^ INCR DEST AwW, 

LOAD VA ANDTEST FOR INTERRUPTS 



MOVTUC - COMPARE BYTE TO ESC CHAR 
AND CHECK FOR INTERRUPTS 

BRANCH ON INTERRUPTS (PENDING) 

INCR DEST ADDR I LOAD VA, 

RESTORE ESCAPE CHAR, TEST FOR MATCH 



INTERRUPT - LET MOVC HANDLE IT 

BRANCH ON SC .GT. (NO MATCH) 

GET LENGTH DIFF IN D WITH HIGH 
ORDER 1'S, GO ADJUST REGS & EXIT 

NO MATCH - WRITE BYTE AND LOOP. 
BRANCH ON INTERRUPTS (PENDING) (MOVTC) 
NO INTERRUPT - WRITE BYTE & LOOP 

INTERRUPT - JOIN COMMON CODE 



ZZ-ESOAA-124.0 ; CHAR .MIC [600.12043 

; PlWir%.MCR 600.12043 

; CHAR .MIC C600, 12043 Character string 



B 4 

Character string 14-Jan-82 



»» - ■- - — - - _- Seguence 452 

MICR02 1L<03) 14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA OE, WCS124 



Fiche 3 Frame B4 



U 06AE. 001B.0014,0580,F898,0010,068C 
U 06AF, 0000,003C,01CO,F8A8,0000,06AE 

U 068C, 0000,003D,9580,F800,KQ4,45C4 
U 068E, 0818, 161 C,C180,FA10,0000,0031 

U 0031, 0F01,0028,0180,FA80,2000,0A99 

U 0035, 081B,5B14,05F8,F800,0000,0690 

U 0690, 0001 ,6028, 7580, FA90J 404 ,AAA1 
U 0692, 0001,203C,0180,FA80,2000,OA99 

U 0A99, 2014,0038, 0180,F899,4200,0A9A 
U 0A9A, 0000,003C, 0180,62AC, 0000, 0A9C 
U 0A9C, 0O00,0O3C,01CC,FA20,0000,0A9D 
U OA90, OO01,203C, 0180, FA98,0000,OA9E 



MOVTC/MOVTUC LOOP EXITS 

Character string 



Page 451 



;1* 

D RCR23.0RNOT.KC.FFFF3, 
STATE*? 



17190 .TOC 
17191 

17192 =1110 ; 

17193 MOVTCLPDONE: 

17194 LA RACR33, ALU (HKC.13, 

17195 CLK.UBCC, J/MOyTCUNBMP 
17196 

17197 ;1111 

17198 LA.RACR53, Q LA, J/MOVTCLPDONE 
17199 

17201 MOVTCUNBMP: 

17202 STATE STATE. ANDNOT.KC. 803, 

17203 CALLCM0VCRBUMP3 
17204 
17205 
17206 
17207 
17208 

17209 =*0*1 
17210 
17211 
17212 
17213 
17214 
17215 
17216 
17217 

17218 =**0* 
17219 
17220 
17221 
17222 
17223 
17224 
17225 
17226 MOVTCEXIT: 

U227 LA RACR33, PCfcVA PC, FLUSH. IB 

17228 ^ Z 

17230 RCR53.LA, PC.PC+1, LOAD. IB 

17231 

1 7232 

17233 Q RCR43 
17234 

1 7235 ; 

17236 RCR33 Q 
17237 

1 7238 



: MOVTC/MOVTUC LOOP EXITS' 



BRANCH ON STATE<4> (MOVING BACKWARDS) 

FORWARDS - BUMP R1SR3 BY 1 
SET UP LATCHES FOR MOVCRBUMP, 
CLEAR ALU CCS 



BACKWARDS - BUMP BY LOOP CT 

CALL CONSTRAINT BLOCK FOR MOVCRBUMP 

CLEAR OUT ALL BITS BUT 'DEST>SRC", 
INCR R18R3 BY 1 OR LOOPCT 

GET LENGTH DIFF WITH HIGH 1'S 



;TEST IF DEST > SRC 



RCR03 NOT.D, DO, 
CLR.FPD, J/MOVTCEXIT 

;*1*1 

LAB R1RRCCT03 D.0XTCW0RD3+KC. 13 , 

D.ACU, Q.O, ifiO? 

RCR23 NOT.Q, DT/WORD, 
STATElSTATE-KC.203, J/MOVTCFILL 



. **1 * 

RCR03.Q, CLR.FPD 



BRANCH ON STATE<6> (DEST > SRC) 

(STATE<4> SET BY MOVCRBUMP) 
SAVE SRC EXCESS IN RO, 
SWAP REGISTERS AND EXIT 



GET DEST EXCESS IN D fc RCCT03, 
CHECK MOVTC OR MOVTUC 

IR1 (MOVTUC) (ALU CCS ALL CLEAR) 
SET R2<15:0> = FFFF, CLEAR 
"DEST>SRC", SET 'TILLING" 



NO S..C EXCESS, ZERO RO 



COMMON CLEANUP CODE, D= DEST LEN 
IB MAY BE BAD IF WE WERE FAULTED 
** FPD MUST BE CLEAR AT THIS POINT ** 

SET R5 = DEST ADDR, START FETHING 



;SET R3 = TABLE ADDRESS 



U 0A9E. 0001 .003C. 0180, FAA0,0000,0AA0 
U 0AA0, 0003.003C0180.FA90.0000.0062 



ZZ-ES0AA-124.0 ; CHAR .MC C600.1204J 
; P1U124.MCR 600-12043 MICR02 1L 

; CHAR .MIC C600. 12043 Character string 



C 4 
Character string 14-Jan-82 



- -- ....„ - .- - -._.._ _. Sequence 453 

MICR02 1L(03) 14-Jan-82_. 15:30:16 VAX] 1/780 Microcode : PCS 01. FPLA OE, UCS1 24 Page 452 



Fiche 3 Frame C4 



: MOVTC/MOVTUC LOOP EXITS 



U 0AA1, 0001,2028,65CO.F900,0104,6688 



;MOVC ENTERS HERE TO CLEAR REGS 
; STORE FINAL DEST LEN 



;ZER0 R2 ANO GO AWAY. 



17239 MOVGETOUT: 

17240 RCR4D D 
17241 

17242 ; 

17243 RCR23 0, J/IRD 
17244 
17245 
17246 

17247 ; COME HERE FROM LOOP EXIT CODE IF WE NEED TO FILL (MOVTC ONLY) 

17249 MOVTCFILL: 

17250 LC.RCCT03. Q NOT.Q, .JUMP BACK TO MAIN LOOP FOR FILLS 

17251 FElKC.10], J7M0VTC.1 
17252 

17253 



ZZ-ESOAA-124.0 ; CHAR .MIC [600.12043 



U 0AA2, 001F,1610,01CO,FA80,2020,0079 

U 0079, 0C1D,2008,0180,FA80,0000,0A99 
U 007D, 081F,4010,0180,F800,0000,OA99 



; P1W124.MCR 600,12043 
; CHAR .MIC C606, 12043 



D 4 
Character string 14-Jan-82 



Fiche 3 Frame D4 



MICR02 1L(03) 14-Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01, FPLA OE, WCS124 
Character string : MOVTC/MOVTUC LOOP EXITS 



Sequence 454 



Page 453 



MOVTUC COMES HERE WHEN TRANSLATED CHAR MATCHES ESCAPE CHAR 
D = DESTLEN-SRCLEN-1 IN <15:0>, FFFF IN <31:16> 
Q - NUMBER OF CHARS LEFT IN SRC - 1 



17254 
17255 
17256 
17257 

17258 ; 

17259 MOVTUCESCAPE: 

17260 RCR03 0+1, Q ALU, SET.V, 

17261 CLR.FPD, STATE6? 
17262 

17263 =10*1 
17264 
17265 
17266 
17267 
17268 
17269 
17270 
17271 

M212 

17273 ;M0VTC/M0VTUC RESTART CODE INCLUDED IN MOVC 

17274 ;END OF MOVTC/MOVTUC 
17275 

17276 .LIST ; Re-enable full listing 



RCR03JJ-D-1, DJJ, J/,"3)VTCEXIT 
D.D.0XTCWORD3+Q+1, J/MOVTCEXIT 



RO t Q GET CORRE COUNT CT, 
SET ESC FLAG, TEST DEST>SRC 

BRANCH ON STATE<6> 

(DESTLEN > SRCLEN) (FILL FLAG=0) 
R0=Q- (DESTL-SRCL-1 ) -1 

= Q ♦ SRCL - DESTL, R4 = Q 

R4 = Q-KDESTL-SRCL-D+1 
= Q + DESTL - SRfL, RO = Q 



E 4 

ZZ-ES0AA-124.0 ; CHAR .MIC C60O.12O43 Character string 14-Jan-82 Fiche 3 Frame E4 Sequence 455 
P1 W1 24 .MCR 600.12043 MICR02 1L(03) 14-Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01, FPLA OE. WCS1 24 Page 454 
CHAR .MIC [600, 12043 Character string : MOVTC/flOVTUC LOOP EXITS 



17276; This page intentionally left blank. I 



ZZ-ESOAA-124.0 ; EDIT 
P1W124.MCR 600.12043 
EDIT .MIC C600.1204D 



.MIC C600.1204J 

MICR02 1L(03) 
EDIT.MIC 



EDIT.MIC 
H-Jan-82 



\7277 .TOC 

17278 .TOC 

17279 ; 
17280 



F 4 
14-Jan-82 Fiche 3 Frame F4 Sequence 456 
15:30:16 VAX11/780 Microcode : PCS 01, FPLA OE, WCS124 Page 

••EDIT.MIC" 
•Revision 1.5" 
P. R. Guilbault 



455 



17281 


.NOBIN 


17282 


.TOC 


17283 




17284 


; 01 


17285 




17286 




17287 




17288 


; 00 


17289 





Revision History* 



Comment patch 86 that fixed FPD unpack problem. 
Comment patch 097 that fixed restart problem. 
Comment patch 098 that fixed restart problem. 
Add re-entry point labels for patch no. 098. 
Start of history 

; 17290 .BIN 
; 17291 .NOLIST 



;Disable listing of PCS code for quickie assemblies 



6 4 
ZZ-ESOAA-124.0 ; EDIT .MIC [600.12043 Edit instruction K-Jan-82 Fiche 3 Frame 64 Seguencs 457 
P1W124.MCR 600-12043 MICR02 11(03) 14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01. FPLA OE. WCS124 Page 
EDIT .MIC C600. 12043 Edit instruction : ALGORITHM 



456 



17292 
17293 
17294 
17295 
17296 
17297 
17298 
17299 
17300 
17301 
17302 
17303 
17304 
17305 
17306 
17307 
17308 
17309 
17310 
17311 
17312 
17313 
17314 
17315 
17316 
17317 
17318 
17319 
17320 
17321 
\7Z22 
17323 
17324 
17325 
17326 
17327 
17328 
17329 
17330 
17331 
17332 
17333 
17334 
17335 
17336 
17337 
17338 
17339 



.TOC 



Edit instruction 



ALGORITHM" 



EDITPC INTERPRETS THE PATTERN SEQUENCE AND PERFORMS 
THE REQUESTED OPERATION ON THE SOURCE. WRITING 
ANY OUTPUT TO THE DESTINATION. 



INPUTS: 



Q = 1ST OPERAND. NAMELY LENGTH 
D = 2ND OPERAND. SRC ADDR 



OUTPUTS: 

(IF NO EXCEPTIONS) 

RO = LENGTH 

R1 

R2 

R3 

R4 

R5 



START OF SRC 



ADDR OF E0$END OPERATOR IN PATTERN 



END OF DEST + 1 



^DURING EXECUTION. THE INTERNAL REPRESENTATION OF REGISTERS: 



;R0 



rR2 

|R3 
;R4 
;R5 



<7:0>LENGTH(IN NIBBLES) 

<15:8>ADJUST INPUT COUNTER 

<31:16> USED BY FPD FOR STATE + PC DELTA 

SRC ADDR 

<15:8> = SIGN. <7:0> = FILL. 

<31:15> = Q - CURRENT COUNTER AT FPD TIME 

PATTERN ADDR 

COPY OF ORIGINAL LENGTH(RO) 

DEST ADDR 



FOR HANDLING INTERRUPTS + EXCEPTIONS. THE INTERPRETATION OF THE 

STATE REGISTER IS: 

IF STATE <6:4> = 0, THEN STATE <2:0>: 

0000 FIRST READ. REREAD LENGTH OF STRING 

0001 PATT1. READING 1ST BYTE OF PATTERN. REREAD R3 

0010 PATT2. READING 2ND BYTE OF PATTERN. DECR R3 BY 

1 AND REGET PATTERN 

0011 ADJUST INPUT 

0100 (UNUSED. GENL DEST MODE) 

0101 END FLOAT OR STORE SIGN 

0110 INSERT (EQUIV. TO PATT2 ♦ WRITE) 

0111 FILL OR BLANKO 

IF STATE <6:4> NON-0, THEN STATE <2:1>: 

00 MOVE/FLOAT READ 

01 FLOAT SNGL 

10 MOVE/FLOAT WRITE 

11 FLOAT DBL 
BIT 3 UNUSED 



ZZ-ESOAA-124.0 ; EDIT 
P1W124.MCR 600.12043 
EDIT .MIC C600 12G4D 



H 4 
.MIC C600. 12043 Edit instruction 14-Jan-82 Fiche 3 Frante H4 Seguence 458 

MICR02 1L(03) 14-Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01. FPLA OE, WCS124 Page 

Edit instruction : ALGORITHM 



457 



17340 

17341 

17342 

17343 

17344 

17345 

17346 

17347 

17348 

17349 

17350 

17351 

17352 

17353 

17354 

17355 

17356 

17357 

17358 

17359 

17360 

17361 

17362 

17363 

17364 

17365 

17366 

17367 

17368 

17369 

17370 

17371 

17372 

17373 

17374 

17375 

17376 

17377 

17378 

17379 

17380 

17381 

17382 

17383 

17384 

17385 

17386 



STATE 

000 

001 

010 

Oil 

100 

101 

110 

111 

STATE 



<6:4>: 

NOT MOVE OR FLOAT OF ANY FLAVOR 

MOVE 

FLOAT 

UNDEFINED 

UNDEFINED 

PRE-ZEROING PART OF 

PRE-ZEROING PART OF 

UNDEFINED 

<7> = PREDEC CASE: ORIGINAL COUNT WAS ODD, SO R1 DECREMENTED 
SO INCREMENTATION IN LOOPS WORKS, BUT THIS INCREMENTATION 
HASN'T OCCURRED YET 



MOVE 
FLOAT 



LABELS OF INTEREST: 



EDITFIRST 
EDITNEXT 

EDPATT1RST 

EDZEROTOTHREE 
EDF0RTYT047 
EDV89A 
ED'PATTNAME 



READ SIGN OF SOURCE STRING ♦ INITIALIZE PSL COND CODES 

EVERY TIME ANOTHER BYTE OF THE PATTERN IS NEEDED, 

INCREMENT ADDRESS + GET NEXT BYTE 

AFTER RESTARTING FROM AN INTERRUPT/EXCEPTION, 1 BYTE PATTERNS 

♦ BRIEF 2 BYTE PATTERNS REREAD PATTERN 

PATTERN IS IN THE RANGE 0-3 

PATTERN IS IN RANGE 40-47 

PATTERN IS IN THE RANGE 81-8F,91-9F.A1-AF 

FOR MOST PATTERNS, THE LABEL ED CONCATENATED 

WITH THE NAME OF THE PATTERN IS WHERE ITS CODE 

STARTS 
EDMAYNEEDZEROS FOR PATTERN=MOVE OR FLOAT, MAY NEED SOME INITIAL 

ZEROS/FILL BEFORE THE ACTUAL SRC DATA IS READ 
EDMOVEORFLOAT FOR PATTERN=MOVE OR FLOAT, IT IS NOW TIME TO 

READ SOME OF THE ACTUAL SRC DATA 
BDFLOATRSTLEFT MOVE/FLOAT NEEDS LEFT NIBBLE OF SRC BYTE 
EDFLOATRIGHTNIB MOVE/FLOAT NEEDS RIGHT NIBBLE OF SRC BYTE 



EDFLOATNOTO 

EDFLOATEQO 

EDM0VEWR2 

EDFLOATNOSIG 

EDMOVEMORE 

EDADJFINI 

EDADJINRIGHT 

EDADJINLEFT 

EDITRS1 



EDNOTMOVEORFLOAT 



FLOAT ENCOUNTERED A SIGNIFICANT CHAR 

FLOAT ENCOUNTERED AN INSIGNIFICAN T 

FLOAT ENCOUNTERED A SIGNIFICANT OR 

MOVE WANTS TO ASCII-IZE A CHARACTER 

FLOAT FOUND 1ST SIGNIFICANT CHAR + 

NEEDS TO WRITE THE SIGN AS WELL AS THE CHAR 

MOVE IS EVALUATING CHAR JUST READ 

MAKE NEGATIVE WD COUNTER FOR ADJUST INPUT 

DETERMINE IS RIGHT NIBBLE = 

DETERMINE IF LEFT NIBBLE = 

RESTART EDITPC AFTER AN INT/EXC. DETERMINE WHAT 

OPERATION WAS INTERRUPTED. 



THE INTERRUPTED OPERATION WAS NOT MOVE OR FLOAT. 



EDMVFLRDORWRITE 



FIGURE OUT WAHT IT WAS ♦ RESUME IT 

THE INTERRUPTED OPERATION WAS MOVE OR FLOAT. 
FIGURE OUT WHICH FLAVOR. 



I 4 
ZZ-ES0AA-124.0 ; EDIT .MIC [600.12043 Edit instruction 14-Jan«82 Fiche 3 Frame 14 

; P1W124.MCR 600-12043 HICR02 1L(03) 14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA OE. WCS1 

; EDIT .MIC C600.12043 Edit instruction : EDITPC entry 



Sequence 459 
124 



Page 458 



U 03C6, 0019.2035,C180,F980,0000.047E 
U 03E6. 0001,203C,0180,F988.0000,0190 

U 0190, 0001,003D,0180,F990,0000,047E 

U 01F0, 0019,0000,0580,FAA8,0000,01F1 
U 01 F1, 0000,003C, 0180, F 900, 0000, 0AA4 

U 0AA4, 0010,0038, 01CO,FA80,0000,OAA5 
U 0AA5, 0001,203C,0180,FAAO,0000,OAA6 

U 0AA6, 0O19,2024,8D8O,F908,0O10,0AA8 

U 0AA8, 0010,0138,0180,FA88,0000,06B8 

U 06B8. 0001,003C,0180,FAA8,0000,0810 

U 06B9, 0810,0038, 1980,F910, 1404,6588 



RCCT03 Q.AND.KC.FFFF3, 
CALL.J7ASPC 



RCCT13_Q 



17387 .TOC 

17388 

17389 

17390 3C6: 

17391 

17392 

17393 

17394 3E6: 

17395 

17396 

17397 =00****0 

17398 RCCT23 D, 

17399 CALL,J7ASPC 
17400 

17401 ; 

17402 =11****0 
17403 
17404 
17405 
17406 
17407 



Edit instruction 



RCR53J>-KL*.13 
LC.RCCT03 



17408 

17409 

17410 

17411 

17412 

17413 

17414 

17415 

17416 

17417 

17418 

17419 

17420 

17421 

17422 

17423 =0 

17424 

17425 

17426 

17427 

17428 

17429 



RCR03.LC, 
QJ-C 



EDITPC entry* 



.-SAVE LENGTH (ARG 1) 
; FETCH ARG 3 



.-SAVE ARG 2 

9 

;SAVE PATTERN ADDRCARG 3) 



DEST ADDR-1 
LOAD LENGTH 
SAVE LENGTH AS PASSED 



RCR43.Q 

ALU O.ANDNOT.r.L.1F3,CL , <.UBCC, 
LC.RCCT13 



RCR13J.C, 
Z? 



RCR53 D, 
J/EDMKTGT31 



6 RCCT23, 
STATE.KCZEROD 



LENGTH HERE ALSO FOR RESTORATION 
ON SUCCESSFUL FINISH 

VERIFY LENGTH < 32 



SRC ADDR 

BRANCH ON LEN > 31 . 

ALU <Z> 

LEN > 31 



PATTERN ADDRESS 
INITIALIZE STATE TO 



U 05B8, 00OO,O03D,3DF0,2C0O.0OO0,09E4 

U 05F8, 0019,0001 ,0580,FA98,0000,OE16 

U 05F9, 0000,003C,0180,F800,0000,0816 

U 05FA, 0000,003C,0180,F800,0000,0816 

U 05FB, 0818,0038, 7580, F 800, 0000, 0AA9 



J 4 



ZZ-ES0AA-124.0 ; EDIT .MIC C600J2043 Edit instruction H-Jan-82 Fiche 3 Frame J4 Seguen 
; P1U124.MCR 600.12043 MICR02 1L(03) 14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA OE, WCC124 



Sequence 460 



; EDIT INK C600.12043 Edit instruction 



: EDITPC entry 



Page 459 



17430 =0****00 ;« 
17431 

17432 Q IDCPSL3, 

17433 CKLUJ/CLRPSLCC 
17434 

17435 =1***»00 ;• 

17436 CALL.J/SETFPD, 

17437 RCR3J.D-KC13 
17438 
17439 
17440 
17441 
17442 
17443 
17444 
17445 
17446 
17447 
17448 



J/EDITFPD 
J/EDITFPD 
6 BLANK 



SUITABLE FOR RTN40 FOR CLRPSLCC 
♦ RETURN3 FOR SETFPD 
PREPARE TO CLEAR PSL CC 



CLRPSLCC RETURNS 40 
PATT ADDR-1 



BLANK = 20(HEX) 



ZZ-ESOAA-124.0 ; EDIT 
P1W124.MCR 600.12043 
EDIT .MIC C600.12043 



K 4 

.MIC [600,1204] Edit instruction 14-Jan-82 Fiche 3 Frame K4 Seguence 461 

MICR02 1L(03) 14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA OE, WCS124 Page 
Edit instruction : SIGN EVALUATION 



H 

i 
i 



460 



U 0AA9, 0058, 0034, 49CO,FAO0,0O10,0AAA 



U OAAA, 0BO1.0O3C,0180.F808,0104,6AAC 



U OAAC, 001C,0114,01EO,F800,0281,06BC 



U 06BC, 0000,803C, 1980, 4000,1 404, 6AAD 



U 068D, 0000, 003C, 1180, F800, 1404, 2AAE 



17449 
17450 
17451 
17452 
17453 
17454 
17455 
17456 
17457 
17458 
17459 
17460 
17461 
17462 
17463 
17464 
17465 
17466 
17467 
17468 
17469 
17470 
17471 
17472 
17473 
17474 
17475 
17476 
17477 
17478 
17479 
17480 
17481 
17482 
17483 
17484 
17485 
17486 
17487 
17488 
17489 
17490 
17491 
17492 
17493 
17494 
17495 



,T0C 



Edit instruction 



SIGN EVALUATION" 



BY NOW, ALL THE OPERANDS HAVE BEEN FETCHED. THEY ARE USED AS: 

RO LENGTH 

R1 SRC ADDR 

R3 PATTERN ADDR-1 

R4 LENGTH 

R5 DEST ADDR-1 

RC LENGTH 

RC 1 SRC ADDR 

RC 2 PATTERN ADDR 

STATE 

PSL COND CODES ALL CLEAR. FPD SET 

D 20CHEX) 

THE SIGN OF THE SOURCE STRING MUST BE DETERMINED NEXT ♦ THE DEFAULT 

FILL ♦ SIGN REGISTERS SET UP 



EDITFIRST: 

Q RCR03.AND.KC.FF3.RI6HT, 
CDC.IBCC 



LAB.R18RCCT1D.ALU, 
ALU D, 
SWAP*), 
FE KC.83 



=0 



VA LA+Q, 
SC FE, 

Z? 



DCBVTEJ CACHE, 
STATE FIRST, 
J/EDSlGN 



;* NIBBLES/2 = # BYTES 
;SEE IF LENGTH = 



RC 1 = BLANK = DEFAULT FILL CHAR 

D<31 :24>=8LANK 

If SIGN IS NEGATIVE, THIS 

CONSTANT WILL BE USED TO SET PSLCC<N> 

WANT TO READ SIGN NIBBLE 
SC 8 FOR ROTATING 
Q<3l:24>=8LANK 
SRC LENGTH = 0? 

ALU Z 

READ SIGN NIBBLE 

FIRST - WHICH WILL ALSO 

BE USED TO KEEP PSLCC<N> OFF 



.-STATE REGISTER USED HERE TO SET PSLCC<N+Z> ACCORDING TO SIGN NIBBLE. 
.-STATE IS EITHER IF POSITIVE OR 8 IF NEGATIVE NOW 



;1- 

EDPLUSMINUS: 



STATE STATE. OR.KC. 43, 
J/EDFfll 



EITHER SRC LEN = OR STATE ALREADY 
SET ACCORDING TO SIGN 
ALWAYS SET Z 



L 4 

ZZ-ESOAA-124.0 ; EDIT .MIC C600.12043 Edit instruction 14-Jan-82 

; P1W124.MCR 600-12043 MICR02 1L(03) 14-Jan-82 15:30:16 VAX11/780 

; EDIT .MIC C6Q0,1204D Edit instruction : SIGN EVALUATION 



U OAAD. 0818,OF38,2D80,F800,0000,07EA 



U 07EA, 0818,0038,7580, F800,0000.06BD 



U 07EB, 0819,0010,1180,F800,1400,66BD 



U OAAE. 0DO1,O03C,3DFO,2D9O,1480,0AB0 



U GABO, 0819,2030,1DEO,FAOO,0000,OA81 



U 0AB1, 0001 ,223C,3D80,3E90, 0000, 01 C4 



17496 EDSIGN: ;• 



17497 

17498 

17499 

17500 

17501 =*10 

17502 

17503 

17504 

17505 

17506 

17507 

17508 

17509 

17510 SDPM1: 

17511 

17512 

17513 

17514 

17515 

17516 

17517 

17518 

17519 

17520 

17521 

17522 

17523 

17524 

17525 



D KC.283, 
BEN/DECIMAL 



D BLANK, 
J7EDPLUSMINUS 

;*1V 

D D+KC.4>1, 

STATE FE, 

J/EDFCUSMINUS 



RCCT2J D, 
D_DAL.SC, 
Q IDCPSLJ. 
SC STATE 



D Q.OR.KCSCJ, 

Lfe.RCR03, 

Q_D 



RCR2J Q, 
IDCPSCJJ), 
BEN/ROR, 
J/EDITNEXT 



Fiche 3 Frame L4 Sequence 462 
Microcode : PCS 01, FPLA OE, WCS124 Page 461 



PRE-ASSUME SIGN IS NEG 

BRANCH ACCORDING TO SIGN 

IN RIGHT NIB (NEG = 1,3,5,9,B,D). 

Q<7:0> = BLANK 

D<3:0> = B OR D 

USE STATE AS FOR SAKE OF PSLCC<N> 



- IS 55 OCT = 2D HEX. USE 28+4+1 
STATE NEEDS TO BE 8 TO SET PSLCC<N> 



GET SIGN TO RC(2)<7:0> ♦ TO D<15:8> 
BLANK (DEFAULT FILL CHAR) TO D<7:0> 
PSLCC<Z+N> WILL BE SET MANUALLY 
GET PROPER PSLCC<N+Z> SETTING 



OR IN THE <N+Z> BIT 
CONSIDER EVEN/ODD OF COUNT 
MOVE SIGN BYTE TO Q 



SAVE SIGN BYTE 

REWRITE PSL 

BRANCH ON COUNT EVEN/ODD 



M 4 

ZZ-ES0AA-124.0 ; EDIT .MIC C600, 12043 Edit instruction 14-Jan-82 Fiche 3 Frame M4 Seguen 
; P1W124.MLR 600.12043 MICR02 1L(03) 14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA OE, WCS124 
; EDIT .NIC C600.12043 Edit instruction : PATTERN DECODE 



Sequence 463 



Page 462 



U OKA, 00O0,003C,5980,FA18,1404,4AB5 

U 01C5, 0000.003C,4180,FA08,1404,6AB4 
U 0AB4. 0018.0000,0580,FA88,0000,01C4 
U 0AB5, O018.O0K,0580,FA98,4200,0AB6 

U 0AB6, 0OO0,8E3C,O58C,40O0,1404,28F6 
U 08F6, 0819,0034, 4980,F800,0000,OA88 
U 08F7, 0000, 003C,1980,F800, 0104, 6816 
U 0AB8, 001 9,0000,1 180, F800, 0010, 0A89 

U 0AB9, 0019,1824, 5580, FA28,14H,476A 



Edit instruction 



PATTERN DECODE' 



17526 .TOC 
17527 

17528 ;1T IS TIMC TO GET A BYTE FROM THE PATTERN ♦ ACT ACCORDINGLY. 

17529 ;R3 NEEDS TO BE INCREMENTED TO GET NEXT BYTE. 

17530 ;0NLY STATE BIT STILL OF INTEREST IS <7>(PREDECREMENT) . 
17531 

17532 =1*0 

17533 EDITNEXT 



LAB RCR33 

STATE STATE .AN.NOTPREDEC, 

J/EDITN1 

;1*1 

LAB.RCR13, 
STATE_PREDEC 



RCR13LA-KC.13, 
J/EDITNEXT 



17534 
17535 
17536 
17537 
17538 
17539 
17540 
17541 
17542 
17543 
17544 
17545 
17546 
17547 

17548 EDI TNI: VA LA+KC.13,RCR33 LA+KC.13, 

17549 INTRPT. STROBE 
17550 

1 7551 ; 

17552 EDPATT1RST: 

17553 DCBYTE3 CACHE, 

17554 STATE STATE. OR. PATT1 , 

17555 BEN/lflTERRUPT 
17556 
17557 =110 

D D.AND.KC.FF3, 
J7EDITN0INT 



FE KCZER03, 
J/PDITFPD 



17558 
17559 
17560 
17561 
17562 
17563 
17564 
17565 

17566 EDITN0IN1: 

17567 ALU.D-rr.43,CLK.UBtC 
17568 

1 7569 

17570 ALU D.ANDN0T.KC.3FJ,CLK.UBCC, 

17571 STATE STATE.AN.5TO0, 

17572 LA8 RtR53, 

17573 BEN7ALU 



LA<0>. KNOW PSL <C> O'F 
MAINTAIN ONLY STATE<7> 



LA<0> = 1 => COUNT IS ODD 
GET HERE 1ST TIME ONLY 
NEED TO PRE-DECREMENT SRC ADDR 
NOTE THIS IN STATE <7> 



PREPARE TO READ NEXT BYTE OF PATTERN 
CHECK ON INTERRUPTS PENDING 



READ 1 BYTE OF PATTERN 
SET STATE<0> 
INTERRUPT? 

INTERRUPT 

EXTRACT THE BYTE SO ALU CC TESTS WORK 



HANDLE AN INTERRUPT 



CHECK FOR PATTERN < 4 



NEXT TEST IS > 3F 
REALLY ONLY NEED TO CLEAR 'PATTI", 
BUT THAT CONSTANT'S NOT ACCESSIBLE 
BRANCH ON 0-4 RANGE 



N 4 

ZZ-ESOAA-124.0 ; EDIT .MIC [600.12043 Edit instruction H-Jan-82 Fiche 3 frme N4 seguen 

; P1W124.MCR 600.12043 MICR02 1L(03) 14-Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01, FPLA OE, WCS1 24 
; EDIT .MIC [600.12043 Edit instruction : PATTERN DECODE 



Sequence 464 



Page 463 



U 076A. 0000,8C3C.3DF0.2E00.0010,0904 
U 076B. 0019.0134,9580. F800.0010.06C8 
U 076F. 0010.8038,01 CO.F910.0000.OACO 

U 0904, lOOO,013C,0180,FA28,0084.66DC 
U 0905, 0000,023C,0180,F800,0000.0995 
U 0906, 0819,2024,0580,F800,0000,OAC9 
U 0907. 0819,2030,0580. F800, 0000, 0AC9 



17574 ."KEEPING IN MIND THAT OF THE POSSIBLE RANGE 00-FF, ONLY A SMALL NUMBER 

17575 ;0F PATTERNS ARE VALID. DECODE THE PATTERN BYTE TO HANDLE THE MYRIAD 

17576 ;0F POSSIBILITIES (RESERVED OPERAND, ILLEGAL. OUT OF RANGE, ETC.) 

ALUCC IK 
J/EDZEROTOTHREE .BEN/MUL , 
Q IDCPSL3.DT/BYTE, 
ACu.RCR03.CLtC.UBCC 



;1011- 

J/EDGREATERTHAN4,Z?, 

ALU.D.AND.KC.B03,CLK.UBCC 



J/ENDFL0AT2, 
Q.RCCT?3,DT/BYTE 



17578 =1010 

17579 

17580 

17581 

17582 

17583 

17584 

17585 

17586 

17587 =1111 

17588 

17589 

17590 

17591 =100 ; 

17592 EDZEROTOTHREE: 

17593 J/EDEOEND.Z?, 

17594 LAB RCR53, 

17595 SC KC.83 
17596 

1 7597 ; 1 01 

17598 J/EDENDFLOAT.BEN/ROR 
17599 

1 7600 ; 1 1 

17601 J/EDSIG.D Q.ANDNOT.PSWC 
17602 

1 7603 ; 1 1 1 

17604 J/EDSIG.D Q.OR.PSWC 



IN RANGE 1-3. BRANCH ACCORDINGLY 
TEST COUNT 



BRANCH ON > 3F TEST 
TEST FOR > 50 BY BIT 6 



PATTERN = 4 WHICH IS STORESIGN 
LOAD SIGN CHAR 

D<1:0> 

PATTERN = 0. SEE IF SRC ALL READ 

LATCH DEST ADDR 

IN CASE THIS IS PRE -MATURE (ABORT) 



PATTERN = 1. BRANCH ON SIGNIFICANCE 
PATTERN = 2 = CLEAR SIGNIF 
PATTERN = 3 = SET SIGNIF 



U 06C8. 0019.0134.3180.FA18.0010.06CC 
U 06C9. 0000.003C.0180.F800.0084.66DC 



B 5 

ZZ-ESOAA-124.0 ; EDIT .MIC C600.12043 Edit instruction H-Jan-82 

; P1U124.MCR 600.12043 MICR02 1LC03) 14-Jan-82 15:30:16 VAX11/780 

; EDIT .MIC C600.12043 Edit instruction : PATTERN DECODE 

17605 =0 , 

17606 EDGREATERTHAN4: 

1 7607 J/ED6REATERTHAN3F . Z? . 

17608 LAB_RCR33. 

17609 ALU_D.AND.KC. 403, 

17610 CLK.UBCC 
17611 

17612 ;1 

17613 J/EDEOEND.SC.KC.83 
176H 

1 761 6 IDGREATERTHAN3F : 

17617 J/EDGREATERTHAN4r.Z?. 
17618 

17619 Q D.AND.KC.F3, 

17620 CtK.UBCC 
17621 

17622 ;1~ 

17623 J/EDF0RTYT04F.D3?. 

17624 RCR33 LA+KC.13. 

17625 VA LA+KC.13. 

17626 Q 
17627 

17628 =0111 ; — 

17629 EDF0RTYT04F: 

17630 J/EDF0RTYTO47,D2-0?» 

17631 LABRCR53, 

17632 STATE STATE. OR. PAT T2 
17633 

1 7634 ; 1 1 1 1 

17635 J/EDEOEND.LAB RCR53, 

17636 SC KC.83 



U 06CC, 0019.0134,61 CO, F800,0010,06DO 

U 06CD. 0018,1914. 05F8,FA98,0200, 0777 

U 0777, 0000, 1 93C, 0980, FA28, 1404, 2930 
U 077F, 0OOO.O03C, 0180, FA28, 0084, 66DC 



Fiche 3 Frame 85 Seguence 465 
Microcode : PCS 01. FPLA OE. WCS124 Page 



ALUCC <Z> 
PATTERN IS > 4 
BRANCH ON > 50 

CONSIDER BIT 6 
TEST FOR < CO 
KNOW BIT 7 IS SET 

5 TO 3F 

•;ALUCC <Z> 
.•PATTERN IS > 3F 
.•BRANCH ON BIT 6(>BF TEST) 
.•KNOW NOW THAT BIT 7 IS SET 
.-SAVE REPEAT COUNT IN Q 
.-TEST FOR LOW NIBBLE = 



464 



TEST FOR >47 

UPDATE DEST ADDR 

PREPARE TO READ NEXT BYTE OF PATTERN 



;D <3>, I.E. NIB =48-4F 



SET STATE <1>. ALSO <7> MAY BE SET 



48-4F(8IT 3=1) 



ZZ-ESOAA-124.0 ; EDIT .MIC C600.120O 



; P1U124.MCR 600-12CK3 
; EDIT .MIC C600.1204: 



C 5 

Edit instruction 14-Jan-82 



Fiche 3 Frame C5 



MICR02 1L(03) 14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01. FPLA OE, WCS124 
Edit instruction : PATTERN DECODE 



Sequence 466 



Page 465 ! 



U 0930, 0000.803C.1980,4000,0084,6AC1 

U 0931, 000O.803C,0180,40O0,0084,6AC5 
U 0932, 0000,1A3C,0180,F800,0084,6807 
U 0933, 0000,1A3C,0180,F800,0084,6817 
U 0934, 0810,8238,0180,F908,0000,09A5 
U 0935, (XXX),803C,0180,4000,0000,OAE8 

U 0936, 001 0,8038,01 CO,4108,0000,OAEA 
U 0937, 0000,803C,0180,4000.0000,OAED 



17637 =*000 

17638 EDF0RTY7047: 



17639 
17640 
17641 
17642 
17643 
17644 
17645 
17646 
17647 
17648 
17649 
17650 
17651 
17652 
17653 
17654 
17655 
17656 
17657 
17658 
17659 
17660 
17661 
17662 
17663 
17664 
17665 
17666 
17667 
17668 
17669 
17670 



J/EDLOADFILL, 
DCBYTE3 CACHE, 
SCJCCZER03 

;*001- 
J/EDLOADSIGN, 
DCBYTE3 CACHE. 
SCKC.83 






;*010 

J/EDL0ADPLUS,8EN/PSL. CC. 
SC.KC.83 

;*011 

J/EDLOADMINUS .BEN/PSL . CC , 
SCJCC.8J 

;*10C 

J/EDINSERT.BEN/ROR, 
D RCL713.DT/BYTE 



;*101 — 
J/EDBLANKO,DCBYTEJ_CACHE 

J/EDREPLACESIGN, 
DC8YTEJ CACHE, 
Q.RCCT17 



; *1 1 1 

J/EDADJUSTINPUT,DCBYTEJ_CACHE 



D<2:0> (KNOW D IS 40-47) 

40. LOAD FILL 
READ NEXT BYTE 
NO ROTATION REOD 



41. LOAD SIGN 

READ NEXT BYTE 

PREPARE TO ROTATE SIGN CHAR 



42. LOADPLUS. CHECK SIGN. 
PREPARE TO ROTATE SIGN CHAR 



43. LCADHINUS. CHECK SIGN 
PREPARE TO ROTATE SIGN CHAR 



44. INSERT. CHECK SIGNIFICANCE. 
LOAD FILL CHAR, I.E. 
ASSUME IT'S NO SIGNIFICANCE 



45. BLANK IF 0. READ NEXT BYTE 



46. REPLACE SIGN 
READ NEXT BYTE 
LOAD FILL 



47. ADJUST INPUT. READ NEXT BYTE 



D 5 

ZZ-ESOAA-124.0 ; EDIT .MIC C600,120A3 Edit instruction H-Jan-82 

; P1W124.MCR 600-12043 MICR02 1L(03) T-Jan-82 15:30:16 VAX11/780 

; EDIT .MIC C600, 12043 Edit instruction : PATTERN DECODE 



U 06DO, 0000,003C,0180,FA28,0084.66DC 



U 06D1, 0201,213C,O18O,FA0O,0082,06D4 



U 06D4, 0800, 593C, 01 80. F 908. 001 0,0783 
U 06D5, 0000,003C. 01 80. FA28, 0084, 66DC 



17671 =0 

17672 ED6REATERTHAN4F : 

17673 J/EDEOEND.LAB.RCR53. 

17674 SCJCC.83 
17675 

17676 ;1« 

1 7677 J/EDGREATERTHAN7F . Z? , 
17678 

17679 D D.RIGHT2, 

17680 Ute RCR03, 

17681 SC 
17682 

17683 =0 ; 

1768', EDGREATERTHAN7F : 

176f>5 J/EDV89A,BEN/D3-0, 

17686 

17687 

17688 LC RCCT13, 

17689 D CA,CLK.UBCC,DT/WORD 

17690 

17692 J/EDE0END,LAB RCR5J, 

17693 SCJCC.83 



Fiche 3 Frame D5 Sequence 467 
Microcode : PCS 01, FPLA OE, WCS124 Page 466 



ALUCC <Z> 

PATTERN IS >4F 

50 TO 7F OR >BF(8IT 6=1) 



BIT 6 s 0. SO PATTERN IS 8X,9X,AX OR BX 
BRANCH ON LOU NIBBLE (X=0 IS ILLEGAL) 
SHIFT PATTERN SO CAN BRANCH ON HIGH NIBBLE 
WE'LL NEED COUNTER SHORTLY 
GET REPEAT COUNT 



ALUCC <Z> 

PATTERN IS > 7F ♦< CO 

BRANCH ON <5:4> OF PATTERN 

WHICH IS NOW IN D<3:2> 

(8,9, OR A NOW 0XX.4XX, OR 6XX) 

FILL CHAR REQD FOR FILL 

CHECK IF ANY INITIAL ZEROING REQD 



80,90,A0,B0 



ZZ-ESOAA-124.0 ; EDIT 
P1W124.MCR 600.1 2043 
EDIT .MIC C600,12043 



U 0783, 0001,803C,5D80,FA28,1414,2AE4 



E 5 
.MIC C600.12043 Edit instruction H-Jan-82 Fiche 3 Frame E5 Seguence 468 

MICR02 1L(03) 14-Jan-82 15:30:16 VAX1 1/780 Microcode . ; PCS 01, FPU OE, WCS1 24 Page 

Edit instruction : PATTERN DECODE 



467 



U 0787. 0C00,1B3C,3580,FA28,1404,2797 



U 078B, CC00,1B3C,A580,FA28, 1404,2797 



U 078F, 0000,003C. 0180, FA28. 0084, 66DC 



U 0797, 0800,813C,D180,FAOO,1496,46FO 



U 079F, 0018,0214, 0580,FAA8,0200,0945 



17694 

17695 

17696 

17697 

17698 

17699 

17700 

17701 

17702 

17703 

17704 

17705 

17706 

17707 

17708 

17709 

17710 

17711 

17712 

17713 

17714 

17715 

17716 

17717 

17718 

17719 

17720 

17721 

17722 

17723 

17724 

17725 

17726 

17727 

17728 

17729 

17730 

17731 

17732 

17733 

17734 

17735 

17736 

17737 

17738 

17739 

17740 

17741 

17742 

17743 

17744 

17745 



;THE PATTERN IS EITHER FILLC81-8F), M0VE(91-9F), OR FLOAT (A1-AF). 

;IN THE LATTER 2 CASES, IT IS TIME TO CONSIDER THE NEED FOR PRE-ZEROING 

;DUE TO A PRECEDING ADJUST INPUT. 



=0011 

EDV89A: J/EDFILL, 

STATE_STATE.OR.FILL, 
ALUJ>,CLK.UBCC,DT/BYTE, 

LAB.RCR53 



•;D3-0 

.♦PATTERN - 81-8F 
;STATE<2:0> 7 
;ALTH0 WE KNOW THERE'S 
;S0ME TO DO, NEED ALUCC<Z> 
;FOR Z? TEST IN FILL LOOP 
.-LATCH UP LAST DEST ADDR 



= 1 



*********************************************** 

* Patch no. 020. PCS 0783 trapped to WCS 1157 * 

*********************************************** 



;0111- 

J/EDMAYNEEDZEROS ,ALU.N? , 

STATE_STATE.OR.MOVE, 



LAB.Rr.R53, 
D.Q 

.-1011- 

J/EDMAYNEEDZEROS , ALU. N? , 

STATE.STATE.OR.FLOAT, 



LAB.RCR53, 
D.Q 



;1111 

J/EDEOEND,LAB RCR53, 
SC_KC83 

IDMAYNEEDZEROS: 

STATE.STATE .AN.PREDECZERO, 



D RCR03. 
SCRCROJ, 
CLR.UBCCDT/BYTE, 
7?, 



J/EDMOVEORFLOAT 



; 1 1 1 1 

VA LA+KC.13,RCR53 LA+KC13, 

BER/ROR, 

J/EDINITCHARS 



PATTERN = 91-9F. IS RO(WORD) NEGATIVE? 
STATE_M0VE<4>+PRE-ZEROING<6> 
PRE-A5SUME THERE'S ZEROING 
STATE <3:0> = 

D.COUNT FOR BEN/D.BYTES TEST FOR ANY LEFT 



PATTERN = A1-AF = FLOAT 

SEE IF RO NEGATIVE 

STATE FL0AT<5> ♦ PRE-ZER0ING<6> 

PRE-A5SUME THERE'S ZEROING 

STATE <3:0> - 

D.COUNT FOR BEN/D.BYTES FOR ANY LEFT 



PATTERN = B1-BF 



ALUCC <N> 

ABOUT TO READ, SO STATE 

PRE-DEC<7> ♦ ZER0<6> WILL VANISH 

ONLY STATE <5:4> CAN NOW BE SET 

LOAD SRC LENGTH FOR DECREMENT ♦ LF/RT 

FOR BEN/MUL AT FLOAT 

CHECK ON LENGTH 

DID COUNTER FOR THIS PATTERN RUN OUT? 



THERE'S SOME INITIAL ZEROING REQD 
CHECK PSL<OF0R FILL OR CHAR 



F 5 

ZZ-ES0AA-124.0 ; EDIT .MIC C600.12043 Edit instruction H-Jan-82 
; P1W124.MCR 600.12043 MICR02 1L(03) H-Jan-82 15:30:16 VAX11/780 
; EDIT .MIC C600.12043 Edit instruction : PATTERN DECODE 

17746 =101 ; 

17747 EDINITCHARS: 

17748 D RCCT13, 

17749 iRTRPT. STROBE, 

17750 BEN/D. BYTES. 

17751 J/EDINIT1 
17752 

17753 ;111 

17754 D KC.303. 

17755 IRTRPT. STROBE, 

17756 BEN/D. BYTES 
17757 

17758 =1110 ; 

17759 EDINIT1 : 

17760 J/EDITNEXT. 

17761 RCR53 LA 
17762 
17763 
17764 
17765 
17766 
17767 
17768 

17769 =110 
17770 
17771 
\7772 
17773 
17774 
17775 
17776 
\7777 
17778 

17779 EDJNIT2: 

17780 ALU.N?, 

17781 Q.Q-KCZER03-1 , 

17782 D Q-KCZER03-1. 

17783 CCK.UBCC.DT/BYTE. 

17784 LA8_RtR5J. 

17785 J/EBMAYNEEDZEROS 
17786 



U 0945, 0810,1838,0180,F908,4000,07EE 
U 0947, 0818,1838,7980,F800,4000,07EE 
U 07EE. OOOO,O03C,O18O,FAA8,0OO0,O1C4 

U 07EF, 0000,8E3C,0180,3200,0084,6966 

U 0966, 0000,4008, 0180,FA80,0010,OABC 
U 0967, 0000,003C,1980,F800,0104,6B16 



U OABC, 0819,BB08,19CO.f : A28,0010,0797 



;1111 

SC KC.83. 
CACHE DCBYTE3, 
LAB «rR03. 
BEN7JNTERRUPT 



RCR03 LA-MASK-1. 

CLK.UBCC.DT/WORD. 

J/EDINIT2 

;111 

J/EDITFPD.FE.KCZER03 



Fiche 3 Frame F5 Sequence 469 

Microcode : PCS 01. FPLA OE, WCS124 Page 



PSL <C> 

STORE FILL 
Q <7:0> = 0? 

PSL <C> = 1 

ASCII 

Q <7:0> = 0? 

D.BYTES <7:0> 

REPEAT COUNT = 
RESET R5 



PREPARE FOR A MASK = 0010 
WRITE 1 BYTE OF INIT CHAR 



INTERRUPT? 

NO INTERRUPT PENDING 
DECREMENT HIGH WORD BY 1 
SEE IF IT'S STILL NEG 



468 



AN INTERRUPT IS PENDING 



MORE TO DO? 

DECREMENT RUNNING COUNTER 

DUPLICATE IT IN D FOR BEN/D. BYTES (I.E. 

CLOCK IT FOR END OF THIS PATTERN 



= 0) 



6 5 

ZZ-ESOAA-124.0 ; EDIT .MIC C600. 12043 Edit instruction K-Jan-82 Fiehe 3 Frame 65 

; P1U1 24. MCR 600.12043 MICR02 1L(03) 14-Jan-82 15:30:16 VAX1 1/780 Microcode ? PCS 01, FPLA OE. WCS1 

; EDIT .MIC [600.12043 Edit instruction : BRIEF PATTERNS 



Sequence 470 
124 



Page 469 



U 06DC. 0018,0014,0580,FAA8,0000,OBOA 
U 06DD, 0018.1A14,0580,FAA8,0000,07FB 

U 07FB, 0FO3,003C,O18O,FA90,00O0,0AFE 
U 07FF. 081 9.2024, 01 80,F800.0000,OABD 
U OABD, 0000,003C, 3D80,3CO0,C0O0,07FB 

U 0995, 0819,2030. 0580, FA28, 0000, OABE 
U 0997. 0000,003C,598u,FA18,1404,4AB5 
U OABE, 0010, 0038,3DC0,3D10, 0000, OACO 



U OACO, OC18,0014,05F8,FAA8,1604,2ACC 

U 0AC1, 0819,0034, 4 980, F 988, 0000. OAC 4 
U 0AC4, 0018, 0024. 49C0.FA10, 0000. 0AC8 



17788 .TOC M Edit instruction 

17789 

17790 =0 ; 

17791 EDEOEND: 

17792 J/EDREPEATTOOFEWABORT, 

17793 RCR53_LA+Kt.13 
17794 
T7795 ;1 

17796 RCR53 LA+KC.13, 

17797 BEN/P5L.CC 
17798 

17799 =1011 

17800 EDITEND1: 

17801 RCR23 O.D 0, 

17802 J/EDlTDONE 
17803 

17804 ;I111- 

17805 D Q.ANDNOT.PSWN 
17806 
17807 

17808 iDCPSL3j>,J/fcDITEND1 

17809 

17810 =101 

17811 EDENDFLOAT: 

17812 D _Q.OR.PSWC, 

17813 LAB RCR5D, 

17814 J/EPENDFLOAT1 
17815 

17816 ;111- 

17817 LAB RCR33, 

17818 STATE STATE. AN.NOTPREDEC, 

17819 J/EDITN1 

17820 

17822 EDENDFL0AT1: 

17823 IDCPSL3 D, 

17824 Q RCCT21 
17825 

1 7826 ; 

17827 ENDFL0AT2: 

17828 VA LA+KC.i1,R[R53 LA+KC.13, 

17829 Q 0,D Q, 

17830 STATE STATE. OR.KC. 13, 
17831 

17832 J/EDINSERTST1 

17833 

17834 

17835 EDLOADFILL: 

17836 RCCT13 D.AND.KC.FF3, 

17837 D D.AN5.KC.FF3 
17838 

17839 ; 

17840 Q RCR23.ANDNOT.KC.FF3, 

17841 J7EDL0ADP0RM1 



BRIEF PATTERNS" 
ALUCC <Z> 

DIDN'T LOOK AT ALL SPECIFIED 



INCREMENT DEST ADD 
SEE IF IT WAS -0 

PSLCC<Z> 

NOT 0. GOOD FINISH 

GUARANTEE N NOT SET 

PSL <CXBEN/ROR) 
SET SIGNIFICANCE 



MAINTAIN ONLY STATE<7> 



REWRITE PSL 
LOAD SIGN CHAR 



GET SIGN IN D<7:0> 

STATE = 5 = ENDFLOAT ♦ STORESIGN 

BIT 2 FROM INSERTST1 

GO WRITE THE SIGN 



SAVE FILL CHAR 

FILL CHAR TO R2 ALSO 



FILL CHAR SAVED IN R2 ALSO 



H 5 
ZZ-ESOAA-124.0 ; EDIT .MIC C600.12043 Edit instruction H-Jan-82 Fiche 3 Frame H5 Seguen 

; P1U124.MCR 600.12043 MICR02 1L(03) K-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01. FPLA OE, WCS124 

; EDIT .MIC C600.12043 Edit instruction : BRIEF PATTERNS 



Sequence 471 



Page 470 



U 0AC5, 0819,0034,49F8 # F990,OOOC,OAC6 
U 0AC6, OD18,0034,49CO,FA10,0000,OAC8 
U 0AC8, 001D, 2030,0180.FA90, 0000,01 C4 
U 0807. 0000,803C, 0180,4000,0000, 0AC5 

U 080F, 0000,003C,5980,FA18,1404,'AB5 

U 0817, 0000,003C,5980,FA18.1404,4AB5 
U 081F, 0000,803C,0180,4000,00O0,0AC5 
U 0AC9, 0000,003C,3D80,3COO,0000,01C4 

U 09A5, O018,O014,05F8,FAA8,02O0.OACC 
U 09A7, 0000, 803C, 0180, 4000, 0OO0,O9A5 

U OACC, 0000,803C, 1180, 3000, 1404, 21C4 



17842 ; 

17843 EDLOADSIGN: 

17844 EDLOADPORM: 

17845 RCCT23 D.AND.KC.FF3, 

17846 D D.AN0.KC.FF3, 

17847 OlO 
17848 

17 849 ; 

17850 Q RCR23.AND.KC. FF3, 

17851 D DAL.SC 
17852 
17853 



17854 EDL0ADP0RM1: 

17855 RCR23 Q.OR.D,J/EDITNEXT 
17856 

17857 =0111 ; 

17858 EDLOADPLUS: 

17859 D03YTE3_CACHE,J/EDL0ADP0RM 
17860 

17861 ;1111 

17862 LAB RCR33, 

17863 STATE.STATE.AN.NOTPREDEC, 

17864 J/EDITN1 
17865 

17866 =0111 ; 

17867 EDLOADMINUS: 

17868 LABRCR33, 

17869 STATE STATE .AN.NOTPREDEC, 

17870 J/EDITN1 
17871 

17872 ;1111 

17873 DD3YTE3 CACHE, J/EDLOADPORM 
17874 

17876 EDSI6: IDLPSL3 D,J/EDITNEXT 
17877 

17878 =101 ; 

17879 EDJNSERT: 

17880 VA LA+KC.13,RCR53 LA+KC.1J, 

17881 Q 0, 

17882 J7EDINSERTST1 
17883 

1 7884 ; 1 1 1 

17885 DCBYTE J.CACHE, J/EDINSERT 
17886 

1 7887 ; 

17888 EDINSERTST1: 

17889 CACHE DCBYTE3, 

17890 STATE STATE. OR. DEST, 

17891 J/EDlTNEXT 
17892 

1 7893 ; 



SAVE SIGN CHAR 

GUARANTEE OTHER BYTES OF = 

SHIFT IN OS ALSO 



0<7:0>=FILL, 
D<15:8>=SIGN 



RCR23<15:8>=SIGN,<7:0>=FILL 

PSLCC<N> 

PSLCC<N> = 



PSLCC<N> = 1 

MAINTAIN ONLY STATE<7> 



PSLCC<N> 

PSLCC<N> = 

MAINTAIN ONLY STATE<7> 



PSLCC<N> = 1 

CLEAR + SET SIG 

PSLCC<C> 

INCREMENT DEST ADDR 

READ 1 BYTE 



WRITE 1 BYTE (USED BY ENDFL ♦ STORESIGN) 
SET STATE<2> 



ZZ-ESOAA-124.0 ; EDIT .MIC C600.12U43 
; P1W124.MCR 600.12043 MICR02 1L(03) 

; EDIT .MIC C600.12043 Edit instruction 



I 5 
Edit instruction K-Jan-82 Fiche 3 frame 15 Sequence 472 

14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA OE, WCS124 Page 471 

: MOVE ♦ FLOAT 



U 06F0, 0000,OC3C,F180,FA08,0084,6982 



U 06F1, 0000.003C, 5980, FA18, 1404. 4AB5 



U 09B2, 0000.003C.5980,FA18,1404,4AB5 



U 09B3, 0000. 003C. 5980, FA1 8. 1404, 4AB5 



U 0986, 0000,013C,0180,F800,0200,072C 



U 09B7. 0018.0114, 0580, FA88, 4200, 06F4 



17894 
17895 
17896 
17897 
17898 
17899 
17900 
17901 
17902 
17903 
17904 
17905 
17906 
17907 
17908 
17909 
17910 
17911 
17912 
17913 
17914 
17915 
17916 
17917 
17918 
17919 
17920 
17921 
17922 
17923 
17924 
17925 
17926 
17927 
17928 
17929 
17930 



• TOC 



Edit instruction 



MOVE + FLOAT' 



; PATTERN = 91-9F, A1-AF 

;AT THIS POINT. EITHER: 

;NO INITIAL ZEROING REQD BEFORE THIS MOVE OR FLOAT OR 

.•INITIAL ZEROING WAS JUST DONE + CAN DO THE 'HEAL" OPERATION 



=0 ; 

EDMOVEORFLOAT: 

LAB RCR13. 
SC KC.FFFC3, 
BEN/MUt .J/EDFL0ATM1 

LAB RCR33 

STATE STAfE .AN.NOTPREDEC, 

J/EDITN1 

iDFLOATMl: 

LAB RCR33 

STATE STATE .AN.NOTPREDEC , 

J/EDITN1 

LAB RCR33 

STATE STATE. AN.NOTPREDEC, 

J/EDITN1 

J/EDFLOATRIGHTNIB, 
VA_LA,Z? 

VA LA+KC.13,RCR13 LA+KC.13, 

INTRPT. STROBE, 

Z? 



ALUCC <Z> 



-4 IN CASE LEFT NIBBLE 

BRANCH ON NIBBLE POSITION(D) + 

ANY LEFT (SC = 0) 

THIS PATTERN ENDED AFTER ZEROING 
MAINTAIN ONLY STATE<7> 



BEN/MUL. SC ♦ D<0> USED 

SC = Q = 

MAINTAIN ONLY STATE<7> 



SC = Q = 

MAINTAIN ONLY STATE<7> 



D<0> = = RIGHT NIB 



D<0> =1 = LEFT NIB 



U 06F4, 0000,8E3C,D580,4000,1404,49C6 
U 06F5, 0000.003C,0180,FA88,0000,072D 

U 09C6, ODOO.O03C,O18O,F800,00OO.0ACD 
U 09C7, 0000,003C,1980.F800,0104,6B16 

U 072C, 0000,803C,D580,4000,K04,4ACD 
U 0720. 001 B, 0000, 0580. FA80, 0000, 0806 



ZZ-ES0AA-124.0 ; EDIT .MIC C600. 12043 



; P1U124.MCR 600.12043 
; EDIT .MIC C600, 12043 



J 5 

Edit instruction 14-Jan-82 



Fiche 3 Frame J5 



MICR02 1L(03) 14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA OE, WCSlC' 
Edit instruction : MOVE + FLOAT 



Seguence 473 



Page 472 



17931 =0 

17932 EDFLOATRSTLEFT: 

17933 DCBYTE3 CACHE, 

17934 STATE STATE. AN.DESTD8L, 

17935 BEN/JRTERRUPT, 

17936 J/EDFLOATLEFT1 
17937 

17938 ;1- 

17939 RL"R1JJ_A,J/EDNQM0RE 
17940 

17941 =110 

17942 EDFLQATLEFT1: 

17943 D DAL.SC.J/EDFLOATAMBI 
17944 

17945 ;111 

17946 J/EDITFPD,FE KCZER03 
17947 

17948 =0 

17949 EDFL0ATRIGHTNI8: 

17950 DC8YTE3 CACHE, 

17951 STATE STATE .AN.DESTDBL, 

17952 J/EDFCOATAMBI 
17953 

1 7954 ; 1 

17955 EDNOMORE: 

17956 RCR03 0-1, 

17957 J/EDREPEATTOOMANYABORT 



ALUCC <Z> 

READ 1 BYTE 
CLEAR STATE<2:1> 



SRC LEN = 

INTERRUPT 

GET LEFT NIBBLE TO <3:0> 

ALUCC <Z> 

CLEAR STATE<2:1> 



K 5 

ZZ-ESOAA-124.0 ; EDIT .MIC C600, 12043 Edit instruction 14-Jan-82 

; P1U124.MCR 600.12043 MICR02 1LC03) 14-Jan-82 15:30:16 VAX1 1/780 

; EDIT .MIC [600,12043 Edit instruction : MOVE ♦ FLOAT 



U OACD, 0819,1634,6180,FA28,0010.0819 

U 0819, 0018,01 14,0580,FAA8,0200,0744 
U 081B. 0018,01 14,0580,FAA8,0200, 0740 

U 0740, 0001,823C,118C,F998,1404,2A05 
U0741, 0000,023C, 1180,F800,1404,2A35 



U OA05, 081 0,8038, 61 80, F910, 0084, 6ACE 

U 0A07, 0819,8030, 7980, F 800, 0000, 0AD6 

U OA35, 0810,8038,0180,F908,0000,OAD6 

U 0A37, 0819,8030,7980,F800,0000,OAD6 



17958 

17959 EDFLOATAMBI: 

17960 D D.AND.KC.F3,CLX.UBCC. 

17961 Lfe RCR53, 

17962 BEN7STATE7-4 
17963 

17964 =**01 
17965 
17966 
17967 
17968 
17969 
17970 
17971 
17972 
17973 
17974 
17975 =0 
17976 
17977 
17978 
17979 
17980 
17981 
17982 
17983 
17984 

17985 =101 

17986 EDFLOATNOTO: 

17987 D RCCT23, DT/BYTE, 
17988 

17989 SC PSLADDR, 

17990 J/EDFLOATNOSIG 
17991 

17992 ;111 

17993 D D.OR.ASCII,DT/BYTE, 

17994 J7EDFL0ATSI6 
17995 

17996 =101 ; 

17997 EDFLOATEQO: 

17998 D RCCT13,DT/BYTE, 

17999 J7EDFL0ATSIG 
18000 

1 8001 -111 

18002 EDM0VEWR2: 

18003 D D. OR. ASCII, DT/BYTE, 

18004 J7EDFL0ATSIG 



J/EDMOVEMORE, 
Z?, 

VAJAHCC.13, 
RCR53.LA+KC.13 

;**11 

Z?, 

VA LA+KC.13, 

RCR53 LA+KC.13 



J/EDFLOATNOTO,BEN/ROR , 
STATE_STATE.OR.DEST, 

RCCT33.D, DT/BYTE 

J/EDFLOATEQ0,BEN/ROR, 
STATE.STATE.OR.DEST 



Fiche 3 Frame K5 Sequence 474 
Microcode : PCS 01, FPLA OE, WCS124 Page 473 



EXTRACT RIGHT NIBBLE 

DEST ADDR 

SEPARATE MOVE ♦ FLOAT 

STATE <5> = MOVE OR FLOAT 

MOVE PATTERN 

NIB = 0? 

PREPARE TO WRITE NEXT DEST LOCN 

INCREMENT DEST ADDR 



FLOAT PATTERN 

PREPARE TO WRITE NEXT DEST LOCN 

INCREMENT DEST ADDR 

ALUCC <Z> 

NEXT OPERATION WILL BE A WRITE 

SET STATE<2> 

CHAR NOT 0. SAVE IT. 



CHAR = 0. TEST SIGNIFICANCE 
NEXT OPERATION WILL BE A WRITE 
SET STATE<2> 
PSLCC <C> 

NOT ♦ 1ST SIGNIF CHAR 

MUST STORE SIGN, SET SIGNIF, STORE CHAR 

PREPARE TO R/W PSL 



NOT + ALREADY SIGNIF 
MAKE IT AN ASCII CHAR 



PSLCC <C> 

AN INSIGNIF 0. STORE FILL CHAR 

A MEANINGFUL 



L 5 

ZZ-ESOAA-124.0 ; EDIT .MIC C600.12043 Edit instruction H-Jan-82 
; P1U124.MCR 600.12043 MICR02 1L(03> H-Jan-82 15:30:16 
; EDIT .MIC C600, 12043 Edit instruction : MOVE ♦ FLOAT 



Fiche 3 Frame 15 Sequence 475 
VAX11/780 Microcode : PCS 01, FPLA OE, WCS124 Page 474 



U OACE. 0000,803r, 0980,3000.1404 AADO 

U OADO, OC00.003C,01FO,2400,0000,OAD1 

U OAD1, 0819,2024, 11E0,FA28,00O0,0AD2 
U 0AD2, 0819,0030,0580. F 800, 0000. 0AD4 

U 0AD4, 001 8,0014, 0580.36A8,0200,OAD5 

U 0AD5. 0810.8038,D580,F918,1404,2A37 



U 0AD6, 0O19,AO0O,05CO,32O0.OO82,OAD8 



U 0AD8, 0818, 8000, 0580, FA80.0010.06F0 



1 8005 ; 

18006 EDFLOATNOSJG: 

18007 CACHE.DCBYTE3. 

18008 STATE Sr T E-KC.23 
18009 
18010 
18011 
18012 
18013 
18014 
18015 
18016 
18017 
18018 
18019 
18020 
18021 
18022 
18023 
18024 
18025 
18026 
18027 
18028 
18029 
18030 
18031 
18032 
18033 
18034 

18035 EDFLOATSIG: 

18036 CACHE DCBYTE3, 

18037 QQ-Kt\13, 

18038 Si 0-KC.1J, 

18039 LAB.RCR03 
18040 

18042 RCR03 LA-KC.13,DT/8YTE,CLK.UBCC, 

18043 D LA-RC.13, 
1804* J7EDM0VEORFL0AT 



ID(SC), 
D"Q 



D Q.ANDNOT.PSWZ, 

Q D, 

LAB RCR53 



D_D.0R.PSWC 



ID(SC) D, 
VA LA+RC.13, 
RCR53.LA+KC.13 

6 RCCT33,DT/BYTE, 
STATE STATE .OR. DESTDBL , 
J/EDM0VEVR2 



STORE SIGN CHAR FOR NOT 

NOTE THAT THIS IS A SPECIAL CASE<CLEAR <2» 

Of MOVE/FLOAT WRITE, NAMELY, COUNTER 

DOESN'T NEED TO BE RESET AFTER fPD 

♦ 1ST SIGNIF DIGIT CASE 



COPY COUNT 



CLEAR PSLCC<Z> 
RESTORE COUNT 



SET PSLCC<C> 



SAVE PSL 

PREPARE TO WRITE CHAR 

INCREMENT DEST ADDR 



REGET CHAR 

SPECIAL CASE:2 WRITES/READ 

SET <2:1> 



IS REALLY A NIBBLE. 

SC USED FOR BEN/MUL FOR COUNT 



DECREMENT SRC COUNT 
PREPARE FOR LEFT/RT 



U 0744, 0001,203C.1180,F998,14 

U 0745. 0000,023C,1180,F800,1404,2A35 

U 0AD9, 0000,003C,3DFO,2COO,0000,OADA 

U OADA, 0819,2030,05EO,F800.0000,OAEO 
U OAEO, 0819,0024,1 180,F800,0000,OAE1 

U 0AE1, OC10.O038,3DCO.3D18.0000,0A37 



M 5 
ZZ-ESOAA-124.0 ; EDIT .MIC C600.12043 Edit instruction 14-Jan-82 
; P1U124.MCR 600,12043 MICR02 1L(03) 14-Jan-82 15:30:16 
; EDIT .MIC C600.1204] Edit instruction : HOVE ♦ FLOAT 



Sequence 476 
VAX1 1/780 Microcode : PCS 01, FPiA OE, WCS124 Page 475 



18045 =0 ;— 

18046 EDMOVEMORE: 

18047 J/EDM0VESI6NIF. 

18048 RCCT33 0, 

18049 STATE.5TATE.OR.DESf 
18050 

18051 ;1> 

18052 J/EDFLOATEQO, 

18053 BEN/ROR, 

18054 STATE STATE. OR. DEST 
18055 
18056 
18057 EDMOVESIGNIF: 



Fiche 3 Frame M5 
t : PCS 01 

;ALUCC<Z> 



18058 
18059 
18060 
18061 
18062 
18063 
18064 
18065 
18066 
18067 
18068 
18069 
18070 
18071 
18072 
18073 



Q_IDCPSL3 



D uOR.PSWC, 
Q_D 



D_D.ANDNOT.PSWZ 



IDCPSLJJ), 

D_Q, 

QRCCT33, 

J7EDM0VEWR2 



DIGIT NOT = 

SAVE COUNT 

NOTE A WRITE IS COMING UP SOON 

SET STATE<2> 

DIGIT = 

NOTE A WRITE IS COMING UP SOON 
SET STATE<2> 



READ PSL 



SET PSLCC<C> 
COUNT CKAR 



GUARANTEE PSL Z BIT = 



WRITE PSL 
RESTORE CHAR 
RESTORE COUNT 
♦ WRITE IT 



J 0AE4, 0810,8038,0180.F800,0000,OAE6 



U 0AE6, 0018,01 14.0580,FAA8,0200.075C 



ZZ-ES0AA-124.0 ; EDIT .MIC C600.12043 



; P1W124.MCR 600-12043 
; EDIT .MIC r.600,12043 



N 5 
Edit instruction 14-Jan-82 



Fiche 3 Frame N5 



MICR02 1LC03) H-Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01. FPLA OE, WCS1 24 
Edit instruction : OTHER PATTERNS 



Sequence 477 



Page 476 



U 075C. O019,AOO0,05CO,3228.0O10,0AE6 
U 075D. 0000.003C.0180,FAA8,0000,01C4 

U 0AE8. 0819.1A34.4980.F800.0C00.082B 
U 082B, 0000,183C.0180,F800.0000,0780 

U 082F. 081 C, 3800,01 E0.F800.0000.076C 

U 076C, 0018,0014,0580,FAA8,0000,0491 
U 076D, 0019,0014,0580,FAA8,0200,0AE9 

U 0AE9, 0810, 8038. 5D80,F 908,1 404, 275C 
U 0780, 001 8,0014, 0580,FAA8, 0000.0491 
U0781, 0000,003C, 5980, FA1 8,1 404, 4AE5 



18074 .TOC " Edit instruction 

18075 

18076 EDFILL: D LC.DT/BYTE 

18077 ^ 

18079 EDFILL1:' 

18080 VA_LA+KC.13,RCR53 LA+KC.13, 

18081 2? 
18082 

18083 =0 

18084 EDFILL2: 

18085 CACHE DCBYTE3, 

18086 LA8 Rft53, 

18087 Q Q-KC.13.CLK.UBCC, 

18088 J7EDFILL1 
18089 



OTHER PATTERNS" 
;81-8F 

;INCR. DEST. ADDR 

m 

•;ALUCC <2> 
•WRITE 1 BYTE OF FILL 

* 

•DECREMENT COUNT 



J/EDITNEXT,RCR53_LA 



;ALUCC <2> = 1 

;RCR53 = LAST BYTE WRITTEN 



J/EDBLANKONOT0,D.B0? 

D.BO?, 
D_LA-D, 
Q D 



RCR53 LA+KC.13, 
J/EDURPREDICTABLE 

VA - D+KC.13,RCR53_D*KC13 



.-GUARANTEE BYTES 3-1 OF LEN = 
.-TEST PSLCC<2> 

•;PSLCC<2> 
;PSLCC<Z>=0 



;PSLCC<2>=1 

.•AMOUNT TO BACKUP BY 

.MOVE COUNTER TO Q 

-;D BYTES 3-1=0 
;LEN = 



18090 

18091 

18092 

18093 

18094 EDBLANKO: 

78095 D D.AND.KC.FF3, 

18096 BEN/PSL.CC 

18097 

18098 =1011 

18099 

18100 

18101 

18102 

18103 

18104 

18105 

18106 =***0 

18107 

18108 

18109 

18110 

18111 

18112 

18113 

18114 EDFILLRST: 

18115 D RCCT13.DT/BYTE. 

18116 STATE STATE. OR. FiLL, 

18117 J/EDFTLL2 
18118 

18119 =***0 ; » ;D.BYTE 0. KNOW BYTES 3-1 = 

18120 ED8LANK0N0TC: 

18121 RCR53 LA+KC.13, ;LEN = 

18122 J/EDURPREDICTABLE 
18123 

1 81 24 ; ***1 ; 

18125 LAB RCR33. 

18126 STATE STATE. AN. NOTPREDEC, .'MAINTAIN ONLY STATE<7> 

18127 J/£i>lTNl 



;BACK UP DEST ADDR 



;FILL CHAR 

.•FILL = BLANKO = STATE<2:0> = 7 



U OAEA, 0819.0034 . 4980, F 800, 0000. OAEC 

U OAEC. OC19.1800.05CO,F800,0000,0784 
U 0784. 0018.0014.0580.FAA8. 0000.0491 
U 0785, 001 C. 1A0O. 01 80, F 800, 0200. 0833 

U 0833, 0000,003C.5980.FA18,1404,4A85 

U 0837, 0000.003C. 5980. FA18, 1404. 4A85 



B 6 
ZZ-ESOAA-124.0 ; EDIT .MIC [600.12043 Edit instruction 14-Jan-82 Fiche 3 Frame 86 

; P1U124.MCR 600.12043 MICR02 1LC03) 14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01. FPLA OE. WCS1 

; EDIT .MIC C600. 12043 Edit instruction : OTHER PATTERNS 



Sequence 478 
124 



Page 477 



U 083B, 0000. 003C. 5980. FA1 8,1 404. 4AB5 



U 083F, 0000.803C.09F8, 3000.1404. 21C4 



18123 EDREPLACESIGN; 



->8129 

18130 

18131 

18132 

18133 

18134 

18135 

18136 =***0 

18137 

18138 

18139 

18140 

18141 

18142 

18143 

18144 =0011 

18145 

18146 

18147 

18148 

18149 

18150 

18151 

18152 

18153 

18154 

18155 

18156 

18157 

18158 

18159 

18160 

18161 

18162 

18163 

18164 

18165 

18166 

18167 

18168 

18169 



D_D.AND.KC.FF3 



Q_D-KC13, 
0.80? 



J/EDUNPREDICTABLE, 
RCR53_LA«*C13 

;***1- 
VA LA-Q, 
BER/PSL.CC 



LABRCR33, 

STATE STATE. AN.NOTPREDEC, 

J/EDITN1 

LAB RCR33 

STATE STATE . AN.NOTPREDE C , 

J/EDITN1 



PATTERN = 46 

CLEAR D BYTES 3-1 FOR NARROWER BEN 



9 * NEXT PATTERN BYTE(POSITI0N>-1 
D<7:0> = FILL CHAR 
COUNT - 0? 

D.BYTE 

INCREMENT DEST ADDR 

DEST ADDR-POSITION 

ONLY N+Z CASE OF INTEREST 

PSLCC<N+Z> 

MAINTAIN ONLY STATE<7> 



MAINTAIN ONLY STATE<7> 



*********************************************** 

* Patch no. 041, PCS 0837 trapped to WCS 1175 * 
*********************************************** 



;1011> 
LA3_RCR33, 

SiATE STATE .AN.NOTPREDEC, 
J/EDITN1 



;1111 

00, 

STATE.STATE.0R.PATT2. 
CACHE DCBY1E3. 
J/EDITNEXT 



MAINTAIN ONLY STATE<7> 



N+Z = 1 = -0 

STATE<1> SETTING IS REDUNDANT 

REGET PATTERN BYTE + RESTART IF FAULTED 



ZZ-ESOAA-124.0 ; EDIT .MIC [600,1?043 



; P1W124.MCR 600.12043 
; EDIT .MIC [600,12043 



C 6 

Edit instruction 14-Jan-82 



Fiche 3 Frame C6 



MICR02 1L(03) H-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA OE, UCS124 
Edit instruction : ADJUST INPUT 



Sequence 479 



Page 478 | 



U OAED, 0819,0034, 4980.F800,0000,OAEE 

U OAEE, 0019.1824,8D80,F800,0010,078C 
U 078C, 0018,0014, 0580. FAA8, 0000, 0491 

U 078D, 0018,01 34, 49C0.FA00.0010, 0794 
U 0794, 0O00,0O3C,0180,FA28,0000,078C 

U 0795, OC1D,A100,69CO,F800,0094,679C 

U 079C, 0819,1834, 0580, F 800, 0000, 084A 
U 079D, 0O19,2O34,49C0,F8O0,0000,0AF0 



18170 .TOC " Edit instruction 

18171 

18172 EDADJUSTINPUT: 

18173 D_D.AND.KC.FFJ 
18174 
18175 

18176 D.BO?, 

18177 ALU_D.ANDN0T.KC.1FJ, 

18178 CU.UBCC 
18179 

18180 =***0 ; 

18181 Ei)UP1: RCR5J LA+KC.13, 

18182 J/EDURPREDICTABLE 
18183 

18184 ;***1- 

18185 Q RCR0J.AND.KC.FF3, 

18186 CCK.UBCC, 

18187 J/EDADJINNOT0,Z? 
18188 

18189 =0 

18190 EDADJINNOTO: 



18191 

18192 

18193 

18194 

18195 

18196 

18197 

18198 

18199 =0 

18200 

18201 

18202 

18203 

18204 

18205 

18206 

18207 



J/EDUP1 ,LAB_RCR5J 

;1- 

Q_Q-D,DT/BYTE,CLK.UBCC, 

DO, 

St_KC.FFE83, 

Z? 



BEN/ALU. 

D D.AND.KC.11. 

J7EDADJIN1 



;1 

Q Q.AND.KC.FFJ, 
J7EDADJINFINI 



: ADJUST INPUT* 



PATTERN = 47 
CLEAN OUT BYTES 3-1 



ADJ LEN = 0? 
SAVE ONLY <4:0> 
CHECK ON ADJ LEN > 31 

D.BYTE 
ADJ LEN = 



Q = SRC LEN 

CHECK IF SRC LEN = 

BRANCH ON ADJ > 31 

ALUCC <Z> 

ADJ LEN > 31 



SRC LEN - ADJ LEN 
D - RCR03 = SRC LENGTH LEFT 
PREPARE FOR RT 24 SHIFT 
BRANCH ON SRC LEN = 



ALUCC <Z> 

SRC LEN NOT 

BRANCH ON SRC LEN - REQ LEN 

ONLY NEED BIT FOR TEST 



SRC LEN = 

BY DEFN., IF REQD LEN 

> + SRC LEN = 0, SRC LEN < REQD LEN 



_ I 



U 084A, 001 9,2034. 49C0.F800.0000.0AF0 



D 6 

ZZ-ES0AA-124.0 ; EDIT .MIC C600.12043 Edit instruction 14-Jan-82 Fiche 3 Frame D6 Seguence 4°0 

; P1U1 24. MCR 600-12043 MICR02 1L(03) 14-Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01, FPLA OE, WCS 124 Page 479 

; EDIT .MIC [600.1204] Edit instruction : ADJUST INPUT 



U 084B, 0OO0J93C, D180,FA08, 5604, 4784 



U 084F, 0000,003C. 5980,FA18, 1404, 4AB5 

U OAFO, 0DO0,0O3C.0180,FA00,O000,0AF1 
U 0Ah1, 001C,2030.0180,FA80,0000,01C4 



U 0784, 0000.8E3C,OD80,4200,1404,2A46 



U 07B5, 0018.0014, 0580, FA88, 4200, 0784 



U 07C4, 0OO0,8E3C.0D80.4200,1404,2A46 
U 07C5, 0000,003C. 0180,FA88,0000,01C4 



D0?,J/EDADJIN3 



LAB RCR33 

STATE STAfE .AN.NOTPREDEC. 

J/EDITN1 



18208 =1010 ; 

18209 EDADJIN1: 

18210 Q Q.AND.KC.FF3.J/EDADJINFINI 
18211 

18212 ;1011 

18213 EDADJIN2: 

18214 VA RCR13, 

18215 INTRPT. STROBE, 

18216 STATE_S T ATE.AN.PREDCCZERO, 
18217 
18218 
18219 
18220 

18221 ;1110 

18222 =1111 
18223 
18224 
18225 
18226 
18227 

18228 EDAD J INF INI: 

18229 D DAL. SC, LAB RCR03 
18230 
18231 

18232 RrROJ.LA.OR.D.J/EDITNEXT 
18233 

18234 =***0 ; 

18235 EDADJIN3: 

18236 DCBYTE3 CACHE - 

18237 STATE STATE. OR. AD J INP, 

18238 LAB RtROD, 

18239 BEN7INTERRUPT, 

18240 J/EDADJIN5 
18241 

1 8242 ; ***1 

18243 J/EDADJIN3. INTRPT. STROBE, 

18244 VA LA+KC.13, 

18245 RCR13J.A+KC.13 
18246 

18248 IDADJIN4: 

18249 DCBVTEJ CACHE. 

18250 STATE STATE.OR.ADJINP, 

18251 LABRtR03. 

18252 BEN7INTERRUPT, 

18253 J/EDADJIN5 
18254 

1 8255 ; 1 

18256 J/EDITNEXT, 

18257 RCR13LA 



ALUCC <Z.C> 

SRC<REQD 

SRC LEN < REQ LEN 

SROREOD 

ASSUME IT'S RIGHT NIBBLE 

ABOUT TO READ, SO NO LONGER PREDEC 
(PREDEC=CO. MAINTAIN <6:0» 
BRANCH ACC TO BIT OF COUNT 



ILLEGAL COMBINATION 
SRC = REQD 

MAINTAIN ONLY STATE<7> 



GET COUNT IN Q<7:0> TO D<15:8> 



D BIT 0. <3:1> = 

READ A BYTE 

NOTE IT'S ADJUST INPUT (STATE<1 :0>=3) 

INTERRUPT PENDING? 



PREPARE TO READ NEXT SRC BYTE 
INCRMENT SRC ADDR 

ALUCC <Z> 

READ A BYTE 

NOTE IT'S ADJUST INPUT (STATE<1 :0>=3) 

INTERRUPT PENDING? 



REQUESTED COUNT ALL DONE 
DON'T INCREMENT SRC ADDR 



U 0A46, 0018,8200.0580.FA80,0084,6A56 
U 0A47. 0000,003C.1980.F800.0104,6B16 

U 0A56, 0819,0034,6180,F800,0010,OAF4 

U 0A57. 0819,0034, CD80,F800,0010,OAF6 



E 6 

ZZ-ESOAA-124.0 ; EDIT .MK [600,12043 Edit instruction 14-Jan-82 

; P1U124.MCR 600.12043 MICR02 1L(03) 14-Jan-82 15:30:16 VAX11/780 

; EDIT .MIC C600.12043 Edit instruction : ADJUST INPUT 

18258 =110 ; 

18259 EDADJIN5: 

1 8260 RCR03.LA-KC . 1 3 ,DT/8YTE , 
18?^1 SC KCT1D, 

18262 BEfl/ROR. 

18263 J/EDADJNOINT 
18264 

18265 ;111- 

18266 J/EDITFPD.FEJCCZEROJ 
18267 

18268 =110 ; 

18269 EDADJNOINT: 

18270 D D.AND.KC.FD.CLK.UBCC. 

18271 J7EDADJINRI6HT 
18272 

18273 ;111 

18274 D D.AND.KC.FOJ, 

18275 CtK.UBCC, 

18276 J/EDADJINLEFT 

18277 ; 

18278 EDADJINRIGHT: 



U 0AF4. 0819.2100,05CO,FA08,0094,A7EO 
U 07E0, O60O,0C3C,0180,F8O0,0000,0822 

U 07E1, 0018,01 14,0580.FA88.4200,07C4 



U 0AF6, 0819, 2100, 05CO,FAOS.0010,07EC 
U 07EC, 0600,003C, 0180, F800, 0000,0822 
U 07ED, 0000,013C, 0180,F800,4200,07C4 



Fiche 3 Frame E6 Sequence 481 

Microcode : PCS 01. FPLA OE, UCS124 Page 480 



INTERRUPT 

DECREMENT SRC LENGTH 

TO EASE CONSTRAINT ON BEN/MUL 

LA <0> TO DETERMINE IF LEFT OR RT NIB 



18279 

18280 

18281 

18282 

18283 

18284 

18285 

18286 =0 

18287 

18288 

18289 

18290 

18291 

18292 

18293 

18294 

18295 

18296 EDADJINLEFT 



Z 7 

q16-KC13, 
D Q-KC.1D, 
Si SCHCC.1J, 
CLR.UBCC, 
LAB RCR1J 



J/EDADJ INNEQO, BEN/MUL , 
D.D.RI6HT 

VA LA+KC.1J*,R[R1JJ.A+KL\ 
IN7RPT. STROBE, 
J/EDADJ IN4,Z? 



13. 



18297 

18298 

18299 

18300 

18301 

18302 

18303 =0 

18304 

18305 

18306 

18307 

18308 

18309 



Q.Q-KC.13, 
D Q-KC.13, 
CDc.UBCC, 
LA8.RCR1J, 
Z? 



J/EDADJ INNEQO, 
D D. RIGHT 



;1 

VA LA, INTRPT. STROBE, 
J/EDADJ IN4,Z? 



LA<0> 

EXTRACT RIGHT NIBBLE 



EXTRACT LEFT NIB 
SEE IF IT'S 



BRANCH ON RIGHT NIB = 
DECREMENT REQUESTED LENGTH 
A COPY OF DECREMENTED LENGTH 
SC FOR BEN/MUL 
SEE IF IT HIT 
LATCH SRC ADDR 

ALU <Z> 

NIB NOT 
COUNTER/2 



INCREMENT SRC ADDR 
CHECK ON INTERRUPTS 
BRANCH ON REQ LEN DONE 



DECREMENT REQ LENGTH 

COPr THE DECREMENTED LENGTH 

SEE IF IT'S 

LATCH SRC ADDR 

BRANCH ON NIB = 

ALU <^ 

NIB NOT = 

COUNTER/2 (COUNT VIA BYTES) 



NIB = 

BRANCH ON REQ LEN = 



U 0822, OC1C.2014.3DF0.2E88.0000.0AF8 



F 6 

ZZ-ESOAA-124.0 ; EDIT .MIC [600.12043 Edit instruction 14-Jan-82 Fiche 3 Frame F6 Seguence 482 

; PI W1 24. MCR 600.12043 MICR02 1L(03) 14-Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01, FPLA OE, WCS1 24 Page 481 

; EDIT .MIC [600,12043 Edit instruction : ADJUST INPUT 

D<0>. KNOW SC = 



U 0823, OC1C,2010,3DFO,2E88,0000,OAF8 



U 0AF8, 0819.2024. 11E0,F8O0,O00O.0AF9 



U 0AF9, 0819.0030. 0980. FAOO. 0000, OAF C 



U OAFC. 001C,8000,3D80,3E80,0000.01C4 



ADVANCE SRC ADDR 

COPY OF DECREMENTED COUNTER 



18310 =*10 ; 

18311 EDADJINNEQO: 

18312 R[R13_LA*D. 

18313 D_Q, 

18314 Q"IDCPSL3. 

18315 J7EDADJINPSL 
18316 

18317 ;FOR THE CASE WHERE THE 1ST SIGNIF DIGIT IS A RIGHT NIB, 

18318 ;+ THE ADDR IS TO BE LEFT POINTING AT THE RIGHT NIB 

18319 .-BECAUSE THE NEXT READ IS OF THE LEFT NIB + WILL INCREMENT THE ADDR 
18320 



18321 
18322 
18323 
18324 
18325 
18326 
18327 
18328 EDADJ INPSL 



;*11- 

RCR13 LA+D+1. 

D_0, 

Q IDCPSL3. 

J7EDADJ INPSL 



18329 
18330 
18331 
18332 
18333 
18334 
18335 
18336 
18337 
18338 
18339 
18340 
18341 



D_Q.ANDNOT.PSWZ. 
Q.D 



D D.OR.PSWV. 
Lfe.RCR03 



IDCPSL3 D. 

R[R03 J.J-Q.DT/8YTE. 

J/EDITNEXT 



ADVANCE SRC ADDR 

COPY OF DECREMENTED COUNTER 



CLEAR Z 
RESTORE COUNTER 



SET V 



WRITE BACK THE PSL 

REDUCE COUNTER BY ADDL AMOUNT 



G 6 



ZZ-ESOAA-124.0 ; EDIT .MIC C600.12043 Edit instruction 14-Jan-82 Fiche 3 Frame 66 Seguence 483 

; P1W124.MCR 600.12043 MICR02 1L(03) 14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA OE, WCS124 Page 482 

; EjIT .MIC [600,12043 Edit instruction : TERMINATION 



U OAFE, O0OO,OO3C,59C0,FA20,1404,4B00 
U OBOO, 0001,203C.01BO,FA80,0000,0802 

U 0802. 0000,163C,0130,FA08,0000,0460 

U 0460, 001C,0000,0180,FA88,0000,OB04 
U 0468, 0018,OOK,0580,FA88,0000,0804 

U 0804, 0001,1A3C,31F0,2EA0,2000,085D 

U 085D, 2014,0038,0180,F801,4200,OOA8 
U 085F, 0819.2030,6580.F800,0000.0805 
U 0805. 0000,003C,3180,3COO,0000,085D 



Edit instruction 



18342 .TOC 

18343 

18344 EDITDONE 

18345 

18346 

18347 

18348 

18349 

18350 

18351 

18352 

18353 

18354 

18355 

18356 =0*** 

18357 

18358 

18359 

18360 

18361 

18362 

18363 

18364 EDJTD1: RCR43 D, 

18365 Q IDCtESJ, 

18366 BEN/PSL.CCCLR.FPD 
18367 

18368 =1101 

18369 EDEXIT: 

18370 PCfcVA.PC, 

18371 FLUSH.IB.J/IB.FILL 
18372 

18373 ;1111 

18374 D Q.OR.KC103 
18375 

18376 ; 

18377 IDCCES3J),J/EDEXIT 



RCR43, 
STATE.STATE.AN.6T04 

• -r~a -i — r i -» -■ m "■ ~r — r tm -■ ti t 

6j>.RIGHT,R[R03j) 



LAB RCR13, 
BEN7STATE7-4 



RCR13 LA-Q, 
J/EDlTDI 

;1***- 
RCR13.LA+KC.13 



TERMINATION" 



END OPERATOR ENCOUNTERED 
ALL SRC USED. 
ORIGINAL SRC LENGTH 
RETAIN ONLY BIT 7 



RO RESTORED. Q = LEN/2 



CURRENT SRC ADDR 

MAY NEED TO UN-PREDEC SRC ADDR 

STATE<7> 

REGEN ORIG SRC ADDR 



PRE-DEC TO CORRECT 
PRE-DEC + 1 = AS WAS 



R4 

RE*D CES REGISTER 

CLEAR FPD BIT 

PSLCC <V> 



SET INTEGER OVERFLOW IN CES 
PSL<V> =1 . CAN BE TRAPPED AT IRD 



U 0806. 0000,003C.0180.FA28,0000,0808 



U 0B08. 0018.0014.0580.FAAS.2400.0106 



H 6 

ZZ-ESOAA-124.0 ; EDIT .MIC C600.12043 Edit instruction H-Jan-82 Fiche 3 Frame H6 Seguence 484 
; P1U124.MCR 600.12043 MICR02 1L(03) 14-Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01. FPLA OE, WCS1 24 Page 483 
; EDIT .MIC C600.12043 Edit instruction : TERMINATION 



U 080A, 0818,0034, C1 CO, FAO0,O0OO,080C 



U OBOC, 081A,6024,49CO»F800,0000,080D 



U OBOD, 0D00,003C, 5980, FA08, 1404, 480E 



U OBOE, 0001. 163C, 0180, FA80,0000,0491 



U 0491, 0000,003C, 0180,F800,2400,0106 



U 0499, 0018, 0014, 0580, FA88, 2400, 0106 



rcr5j la+kc.13, 
set.fPd.j/rsvopr 



;E0END ENCOUNTERED WHEN SRC LENGTH NOT = 

;0R AN UNDEFINED OPERATOR ENCOUNTERED 

;NEED TO STRAIGHTEN OUT RO ♦ CHECK ON PRE-DEC 



EDREPEATTOOFEyABORT : 

D RCR03.AND.KC.FFFF3. 
Q RCR03.AND.KC.FFFF3 



D.D.SWAP, 



18378 ; 

18379 EDREPEATTOOMANYABORT: 

18380 LAB.RCR53 
18381 

18382 
18383 
18384 
18385 
18386 
18387 
18388 
18389 
18390 
18391 
18392 
18393 
18394 
18395 
18396 
18397 
18398 
18399 
18400 
18401 
18402 
18403 
18404 
18405 
18406 
18407 
18408 
18409 
18410 
18411 
18412 
18413 
18414 
18415 
18416 
18417 
18418 
18419 
18420 
18421 
18422 



;MOVE OR FLOAT EXHAUSTED 
;SRC LENGTH BEFORE ALL DONE 



;ADDR OF NE> , DEST BYTE 
.•GUARANTEE FPD IS SET 



ALU Q.SXTCW0RD3.ANDNOT.KC. FF3, 
Q_AtU 



D.DAL. SC, 

LAB RCR13, 
STA7E.STATE.AN.6T04 



CURRENTLY <15:8>=ADJ INP NEG COUNTER 

<7:0> = SRC LEN 

NEED BYTE 1 IN BYTE 2 POSITION 

D<31:24>=SRC LEN,<23:16>=ADJ INP CNTR 

D<15:0>=0 

Q<31:16>=SIGN EXT, 

Q<15:7>=ADJ IN? CNTR 

Q<7:0> = 

D<31:24>=SXT, <23:16>=ADJ INP CNTR, 

D<15:7>= 0, D<7:0>=SC LEN 

MAY NEED ♦ 1 

CLEAR OUT ALL BUT <7> 



*********************************************** 

* Paten no. 097, PCS 080D trapped to WCS 11A5 * 

*********************************************** 



BEN/STATE7-4, 
RCROJD 



=0*** ; 

EDUNPREDICTABLE: 

SET.FPD,J/RSVOPR 



;SEE IF R1 NEEDS UN-PRE-DECREMENT 



•;STATE<7> 
;ALL BETS OFF 



•1*** 

RCR12 LA+KC.13, 
SET.FPD.J/RSVOPR 



-;R1 NEEDS INCREMENT 



U 0810. 0010,0038,01CO,F910,0000,0811 
U0B11. 0001,203C,0180,FA98,0000,0814 
U 0814. 0003,003C, 01 80,FAAO,0000,081 5 

U 0815, 0O03,OO3C, 01 80, FA90, 2400, 01 06 



I 6 
ZZ-ESOAA-124.0 ; EDIT .MIC C600,12043 Edit instruction 14-Jan-82 Fiche 3 Frame 16 seguem 

; P1W124.MCR 600-12043 MICR02 1L(03) H-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPU OE, WCS124 

; EDIT .MIC C600,12M3 Edit instruction : TERMINATION 



Sequence 485 



Page 484 



18423 EDMAT6T31 : 
18424 



18425 
18426 
18427 
18428 
18429 
18430 
18431 
18432 
18433 
18434 
18435 
18436 
18437 
18438 



Q.RCCT23 

RCR33.Q 

RCR43JT 



RCR2J 0, 
SET.FPD,J/RSVOPR 



RO = LENGTH OF STRING 
R1 = START OF SRC 
R5 = START OF DEST 
LOAD PATTERN ADDR 



LEAVE START OF SRC IN R3 



REQ LEN > 31 



ZZ-ESOAA-124.0 ; EDIT 
; P1W124.MCR 600-12043 
; EDIT .MIC C600. 12043 



J 6 
.MIC C600, 12043 Edit instruction 14-Jan-82 Fiche 3 frame J6 Seguence 486 

MICR02 1L(03) 14-Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01, FPLA OE, WCS124 Page 
Edit instruction : FPD * RESTART 



485 



U 0816. 0FOO,OO3C, 7180, F800, 0084, 6818 



U 0818, OD18,0034,C1CO,FA10, 0000, 0819 



U 0819, 001D,2030,0180,FA90,H80,06D8 



18439 
18440 
18441 
18442 
18443 
18444 
18445 
18446 
18447 
18448 
18449 
18450 
18451 
18452 
18453 
18454 
18455 

18*56 
18457 
18458 
18459 
18460 
18461 
18462 
18463 
18464 
18465 
18466 
18467 
18468 
18469 
18470 
18471 
18472 
18473 
18474 
18475 
18476 
18477 
18478 
18479 
18480 
18481 
18482 
18483 
18484 
18485 
18486 



.TOC 



Edit instruction 



FPD + RESTART* 



ALGORITHM: 

AFTER HANDLING AN INTERRUPT OR EXCEPTION, EDITPC 

IS TO RESUME. ALL INFO ABOUT WHERE TO DO SO IS MAINTAINED 

IN THE STATE REGISTER. IT IS ALLOCATED AS FOLLOWS: 

IF STATE <6:4> = 0. THEN STATE <2:0> ALLOCATED AS: 

0000 FIRST REREAD LENGTH OF STRING 

0001 PATTERN 1 READING 1ST BYTE OF PATTERN. REREAD R3 
0C10 PATTERN 2 READING 2ND BYTE OF PATTERN. DECR PA 3 BY 



1 AND REGET PATTERN 

ADJUST INPUT 

(UNUSED. GENL DEST MODE) 

END FLOAT OR STORE SIGN 

INSERT (EQUIV. TO PATT2 ♦ WRITE) 

FILL OR BLANKO 
BIT 3 UNUSED 
IF STATE<6:4> NOT 0, THEN STATE<2:1> ALLOCATED AS: 

MOVE/FLOAT READ 

FLOAT SNGL 

MOVE/FLOAT WRITE 

FLOAT DBL 



0011 
0100 
0101 
0110 
0111 



00 
01 
10 
11 
STATE <6:4> ALLOCATED AS: 

000 NOT MOVE OR FLOAT OF ANY FLAVOR 

001 MOVE 

010 FLOAT 

011 UNDEFINED 

100 UNDEFINED 

101 PRE-2ER0ING PART OF MOVE 

110 PRE-2EROING PART OF FLOAT 

111 UNDEFINED 

STATE <7> = PREDEC CASE: ORIGINAL COUNT WAS ODD, SO R1 DECREMENTED 
SO INCREMENTATION IN LOOPS WORKS, BUT THIS INCREMENTATION 
HASN'T OCCURRED YET 

FOR UNDEFINED STATE COMBINATIONS, J/RSVOPR. 



EDITFPD: 



SC_KC.FFF83,D_0 



.•CALLED WITH Q = COUNT (OR IF IRRELEVANT) 
;SC_-8 



D.DAL. SC, 
0.RCR23.AND.KC.FFFF3 



.-ROTATE SO COUNT FROM Q<7:0> TO D <31 :24> 
;SIGN<15:8> ♦ FILL<7:0> IN R2 



RCR23 Q.OR.D.SC.STATE, 
J/FPDPACK 



;0R COUNT INTO HI BYTE OF R2 

;G0 PUT PC DELTA ♦ STATE INTO RO HIGH 



ZZ-ESOAA-124.0 ; EDIT .MIC [600.12043 
; P1W124.MCR 600-12043 
; EDIT .MIC C600. 12043 



K 6 
Edit instruction K-Jan-82 



__ _._ _ . Sequence 487 

MICR02 1L(03) 14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01. FPLA OE, WCS124 Page 486 



Fiche 3 Frame K6 



Edit instruction 



: FPD + RESTART 



U 0041. 0800.003D.6DCO.FA00.0084.69F2 
U 0141, 001B,0010,0580,F800,0010.081C 

U 0B1C, 0001.1B3C.6D80.F800.0186.66E8 

U 06E8. 0800.003C.1DCO.FA10.1404.6B1D 
U 06EA. 0800.093C.1DCO.FA10.1404.6274 

U 0274. 0019.201C.C180.FA90.0081.0A91 
U 0275, 0800.003C.0180.FA00.0000.1010 



18487 41 * 

18488 ;THIS ADDR SHARED BY CRC (OP-CODE = OB), MATCHC (39), + EDITPC(38) 

18489 CRCRESTART: 

18490 MATCHCRESTART: 

18491 EDITRESTART: 

18492 CALL.J/FPDUNPACK. 

18493 D RCR03,Q RCR03. 

18494 SC.KC.FFF03 
18495 
18496 

18497 141: ALU O+KC. 13+1, 

18498 CLK.UBCC 
18499 
18500 
18501 
18502 
18503 
18504 

18505 =**0* 
18506 
18507 
18508 
18509 
18510 
18511 
18512 
18513 

18514 =1*0 
18515 
18516 
18517 
18518 
18519 
18520 



SC D 
FE~k£.FFF03, 

beR/alu 



J/EDITRS1, 

STATE SC. VIA. KMX, 

D.RCR23.Q.RCR23 

BEN/IR2-1 .STATE_SC.VIA.KMX. 
D RCR23.Q.RCR23 



J/MATCHCUNSCRAMBLE. 
SC FE. 
RCB23JJ.0RN0T.KC.FFFF3 

. ! *! „ 

J/CRCUNSCRAMBLE .D.RCR03 



RESET PC * UNPACK RO 
-16(10) 

GUARANTEE ALU Z.N.C CLEAR 



START STATE TOWARDS HOME 

-16 WILL BE USED BY EDIT RESTART 

IR<0> 

IR<0>. KNOW ALU CC Z.N.C = 
EDITPC 

RESTORE STATE 
NEXT UNPACK R2 



IT'S MATCHC OR CRC 



IR<1>. IR<2> = FOR BOTH 

MATCHC (39) IT WAS 

A -16 

REMAKE IT A NEGATIVE LWD 



CRC (8) IT WAS 



L 6 
ZZ-ESOAA-124.0 ; EDIT .MIC C600.12043 Edit instruction 14-Jan-82 Fiche 3 Frame L6 Seguence 488 
; P1U124.MCR 600,12043 MICR02 1L(03) 14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA OE, UCS124 Page 
; EDIT .MIC C600,12043 Edit instruction : FPD + RESTART 



487 



U 0B1D, OB19,2034,4980,F988,0081,061E 



U OB1E, 0D19, 0034, 49CO,FA10, 0000, 0822 



U 0B22, OC19,0034,4980,F990,0000,0840 



18521 
18522 
18523 
18524 
18525 
18526 
18527 
18528 
18529 
18530 
18531 
18532 
18533 
18534 
18535 
18536 
18537 
18538 
18539 
18540 
18541 
18542 
18543 
18544 



EDITRS1 



RCCT1J.Q.AND.KC.FF3, 

SC FE, 

SUAPD 



SAVE FILL CHAR 
GET THE -16 FOR SHIFTING 
NOW D<7:0>= COUNTER 
<23:16> = SIGN 
<31:?4> = FILL 



*********************************************** 
* Patch no. 098, PCS 0B1D trapped to WCS 11A6 * 

*************** ******************************* 



ED.PA.98.A: 



D DAL.SC, 

Q D.ANO.KC.FFJ, 

LAB.RCR23 



ED. PA. 98; 



RCCT23.D.AND.KC.FFJ, 
D.Q 



D<7:0>=SIGN BYTE 

RESTORE COUNTER 

NEED TO CLEAR R2 <31:16> 



SIGN RESET 

MOVE COUNTER SO PRESERVED 

ACROSS SETFPD 



ZZ-ESOAA-124.0 ; EDIT .MIC C600. 12043 
; P1W124.MCR 600,12043 MICR02 1L 

; EDIT .MIC C600.12043 Edit instruction 



U 0840. 0018.0035. C180.FA90.0000.0E16 
U0841, 0000.003C.0180.F800.0000.0816 
II 0842. 0000.003C.0180.F800.0000.0B16 



PI 6 

Edit instruction 14-Jan-82 



Fiche 3 Frame M6 



. _.. .. _ _.._.._ Seguence 489 

; P1W124.MCR 600 4 12043_ MICRO? 1L(03) 14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01. FPLA OE. WCS124 Page 488 



: FPD + RESTART 



U 0843. 0800. 1 63C. 01 E0.FA28. 1604. 4868 



U 0868. 0000.173C.0180,FA18.0000,OA60 



U 0860, 0819,1 700.0580.FA00.0000.0879 



U 086A. 081 9, 1700. 0580. FAOO. 0000. 0879 
U 0868. 0000.003C.0180.F800.0000.0106 
U OK^C, 0000.003C.0180.F800.00C0.0106 

U 086D, OC00.023C.0180.F800.0000.0945 

U 086E, 0C00.023C. 01 80, F 800,0000.0945 
U 086F, 0000,003C, 0180, F800,0000,0106 



18545 =00 

18546 

18547 

18548 

18549 

18550 

18551 

18552 

18553 

18554 

18555 

18556 

18557 

18558 

18559 

18560 

18561 

18562 =1000 

18563 

18564 

18565 

18566 

18567 

18568 

18569 

18570 

18571 

18572 

18573 

18574 

18575 

18576 

18577 

18578 

18579 

18580 

18581 

18582 

18583 

18584 

18585 

18586 

18587 

18588 

18589 

18590 

18591 

18592 

1S593 

13594 

18595 

(8596 

18597 

18598 



CALL.J/SETFPD. 
RCR23LA.AN0.KC.FFFF3 



J/EDITFPD 
J/EDITFPD 



BEN/STATE7-4. 
STATE.STATE . ANLJOT.KC . 83 . 

D RCR53. 
V* RCR55 



RETURN3 

RESET FPD ADDR 

RESET TO FILL ♦ SIGN 



LAB RCR33, 

BEN7STATE3-0, 

J/EDNOTMOVEORFLOAT 

;1001 

LA8.RCR03, 
D.D-KC.13, 

BEN/STATE3-0. 
J/EDMVFLRDORWRITE 

;1010 

LAB RCR03, 
DJ>=KL".13, 

BEN/STATE3-0, 
J/EDMVFLRDORWRITE 



.-1011 

J/RSVOPR 

;1100 

J/RSVOPR 



.-1101 

BEN/ROR, 

DO. 

J7EDINITCHARS 



.-1110 — 

BEN/ROR. 

D Q. 

J7EDINI TCHARS 



;1111 

J/RSVOPR 



CONSIDER <6:4> 

.-GUARANTEE STATE<3> CLEAR 
RESTORE COUNTER TO Q 
DEST ADDR 



STATE <6:4>. NOT MOVE OR FLOAT 
PATTERN ADDR 
CONSIDER STATE<2:0> 



MOVE NOT PRE-ZEROING 

IF THIS IS A WRITE. NEED TO 

DECREMENT ADDR 

DETERMINE IF A READ OR WRITE 



FLOAT NOT PRE-ZEROING 

IF THIS IS A WRITE. NEED TO 
DECREMENT ADDR 



UNDEFINED 
UNDEFINED 



MOVE PRE-ZEROING 
BRANCH ON FILL OR ZERO 
KEEP COUNT IN D+Q 



FLOAT PRE-ZEROING 
BRANCH ON FILL OR ZERO 
KEEP COUNT IN D*Q 



UNDEFINED 



U 0A60, 0818,0038, 7580, F 800, 0000. 0AA9 



U 0A61. 0000,003C,01F8,FA18,4200,OAB6 



N 6 

ZZ-ESOAA-124.0 ; EDIT .MIC C600,12043 Edit instruction 14-Jan-82 Fiche 3 Frame No Seguence 490 

; PlUl24.MCk 600-12043 MICRG2 1L(03) 14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA OE, WCS1 24 Page 

; EDIT .MIC C600, 12043 Edit instruction : FPD ♦ RESTART 



489 I 



U 0A62, 0018,0000, 05F8,FA98,4200,OAB6 



U 0A63, OFOO,003C.0180.F800,0000,0848 
U 0A64, 0O19.0O00,O58O,FAA8,0O00,0A61 

U 0A65, 0810. 0038, 01F8,F910,0000,OACC 

U 0A66, 0019,0000, 0580,FAA8, 0000, 0A62 
U 0A67, 0019,2014, 05CO,F800, 0000, 0AE9 



J/EDITFIRST, 
D.BLANK 

EDSTATE1 : 

;*001- 
J/EDPATT1RST, 

Q « ' 

iRTRPT. STROBE, 

VA_RCR3D 



EDSTATE2: 



;»010 

VA LA-KC.13, 
RCR33j.A-KC.13, 

Q » ' 

iflTRPT. STROBE, 

J/EDPATT1RST 



18599 =»000 

18600 EDNOTMOVEORFLQAT: 

18601 : 

18602 
18603 
18604 
18605 
18606 
18607 
18608 
18609 
18610 
18611 
18612 
18613 
18614 
18615 
18616 
18617 
18618 
18619 
18620 
18621 
18622 
18623 
18624 
18625 
18626 
18627 
18628 
18629 
18630 
18631 
18632 
18633 
1U.34 
18*35 
18636 
18637 
18638 
18639 
18640 
18641 
18642 



STATE2-0 

BLANK EXPECTED IN D 



STATE = 1 
GENERAL CLEANUP 



STATE = 2 
GENERAL CLEANUP 



*********************************************** 

* Patch no. 086, PCS 0A62 trapped to WCS 119F * 

***************************************&******* 



;*011 

DO, 
J7EDADJ!N2 

;*100 

RCR53 D-KC.13, 
J/EDSTATE1 



; * 1 01 

D RCCT23, 
Q 0, 
J7EDINSERTST1 

RCR53 D-KC.13, 
J/EDSTATE2 

;*111 

Q_Q+KC.13,J/EDFILLRST 



STATE = 3 = ADJ INP. 

FORCE RIGHT AT LEFT/RIGHT TEST 

I.E. DON'T RE-INCREMENT SRC ADDR 

STATE = 4 



STATE = 5 = STORE SIGN ♦ ENDFLOAT 

CLEAN-UP 

RETRY SIGN CHAR 



STATE = 6 = INSERT 



RESET COUNTER 



B 7 
ZZ-ES0AA-124.0 ; EDIT .NIC C600.12043 Edit instruction H-Jan-82 

; P1W124.RCR 600.12043 MICR02 1L(03) 14-Jan-82 15:30:16 VAX11/780 Mi 

; EDIT .MIC C600. 12043 Edit instruction : FPD * RESTART 

18643 =1001 ; 

18644 EDMVFLRDORWRITE: 
18645 

18646 SC KC.FFFC3, 

18647 BEN7R0R.J/EDRSTFL1 
18648 
18649 .-1011 



Fiche 3 Frame B7 Sequence 491 
crocode : PCS 01, FPLA OE, WCS124 Page 



490 



U 0879, 0000.023C.F180,F800,0084.6A76 
U 087B, 00O1,O03C.0180,FAA8,0O00.0879 

U 087D, 0019, 2014, 05CO,F800,0000.087B 

U 08?F, 0019,2014,05CO,F800,0000,087B 

U 0A76, 0000.003C,0180,FA08,0200»072C 

U 0A77, 0000, O03C, 0180, FA08,4200,06F4 



18650 EDMVFLDADDRRESTORE: 

18651 RCR53J), J /EDMVFLRDORWRITE 
18652 

18653 ;1101« 

18654 EDMVFLCNTRRESET: 

18655 Q Q+KC.13, 

18656 J7EDMVFLDADDRRESTORE 
18657 

18658 ;1111 

18659 Q Q+KC.13. 
18660 

18661 J/EDMVFLDADDRRESTORE 

18662 

18663 =110 

18664 EDRSTFL1: 

18665 J/EDFLOATRIGHTNIB, 

18666 VA.RCR13 
18667 

18668 ;111 

18669 J/EDFLOATRSTLEFT, 

18670 VA RCR13, 

18671 IN7RPT. STROBE 
18672 

18673 .LIST ;Re-enable full listing 



IF MOVE OR FLOAT THEN ONLY 

STATE <2:1> OF <3:0> CAN BE SET 

HOVE OR FLOAT READ 

PREPARE FOR LEFT NIB CASE 

BRANCH ACC TO LEFT/RT NIB 

KEEP LA UNALTERED(RO) THRU THIS INSTRUCTION 

FLOATSNGL CASE 

SAVE DECREMENTED DEST ADDR 

MOVE OR FLOAT WRITE 

RESET COUNTER 



FLOATDBL CASE 

RESET COUNTER 

PSL <C> NOW SET, SO SIGN WON'T 

GET RE-WRITTEN AFTER RE-READ OF CHAR 



LA<0> 



LA <0> = 1 



ZZ-ESOAA 124.0 ; DECMAL.MIC C60OJ2043 DECMAL.WC 

; P1W124.MCR 600.12043 MICR02 1L(03) U-Jan-82 

; DECMAL.MIC £600.1204!] DECMAL.MC 

18674 .TOC 

18675 .TOC 

18676 ; 
18677 



C 7 
14-Jan-82 Fiche 
15:30:16 VAXl 1/780 Microcode 



3 Frame C7 Seguence 492 

: PCS 01, FPLA OE, WCS124 Page 491 



18678 


.NOBIN 


18679 . 


.TOC 


18680 




18681 . 


• 02 


18682 . 




18683 , 




18684 , 




18685 , 




18686 . 




18687 . 


: 01 


18688 . 


: 00 


18689 




18690 





'DECMAL.HIC" 
Revision 2.9" 
R. J. Avarbock, 



P. R. Guflbault 



Revision History* 



[imps. 



» to fix 



<ADD.SUB)P<4,6> V bit problem. 



Remove absolute 

Add Patch no. 09 

Add Patch no. 092 to fix CVTPT V bit problem. 

Add Patch no. 090 to fix CVTTP int. problem. 

Add Patch no. 089 to fix <ADD,SuB)P<4 # 6) V bit bug. 

Change macro names that deal with conditions codes. 

Add Patch no. 074 to fix NULP bug. 

Create this file by merging MOVP.MIC, CONV.MJC, ADDP.MIC, MULP.MJC, DIVP.MIC, ASHP.MIC, and SUB.WIC 

Start of history 



; 18691 .BIN 
; 18692 .NOLIST 



.•Disable listing of PCS code for quickie assemblies 



ZZ-ES0AA-124.0 ; DECMAL.MIC C600.12043 
P1U124.MCR 600.1 204D MICR02 1L(03) 

DECHAL.MIC C600, 12043 Decimal string 



Decimal string 
14-Jan-82 T5 



18693 
18694 
18695 
18696 
18697 
18698 
18699 
18700 
18701 
18702 
18703 
18704 
18705 
18706 
18707 
18708 
18709 
18710 
18711 
18712 
18713 
18714 
18715 
18716 
18717 
18718 
18719 
18720 
18721 
18722 
18723 
18724 
18725 
18726 
18727 
18728 
18729 
18730 
18731 
18732 



MOVP 



D 7 

14-Jan-82 Fiche 3 Frame D7 Seguence 493 
:30:16 VAX1 1/780 Microcode : PCS CI, FPLA 0£, WCS124 Page 



492 



,T0C 



Decimal string 



MOVP' 



ALGORITHM: 

1. STARTING AT 'mVP.INlV. THE LAST SPECIFIER IS EVALUATED, 
AND THE REGISTERS ARE INITIALIZED. FIRST PART DONE-FLAG 

IS SET CBCD.FPD"). 

2. USING THE 'READ-BCD' -SUBROUTINE, DATA IS READ FROM 
SOURCE-STRING, A LONGWORD AT THE TIME CMVP.O"). 

3. USING THE 'URITE-8CD' -SUBROUTINE, THE DATA IS, WRITTEN 
INTO THE DST-STRING CWVP.1"), AND THE REGISTERS ARE UPDATED. 

4. WHEN THE LENGTH REACHES ZERO, (REMEMBER THAT 

THE TWO STRINGS HAVE SAME LENGTH), THE CONDITION CODES ARE SET. 

AND THE GENERAL REGISTERS ARE LOADED CTINIO"). 

THIS ROUTINE IS MORE EXTENSIVE THAN MIGHT BE EXPECTED, 

SINCE IT IS USED BY ALMOST ALL THE PACKED DECIMAL INSTRUCTIONS 

TO SET CONDITION CODES. 



STORAGE: 



RO CONTAINS NEGATIVE SRC-LENGTH 
R1 CONTAINS SRC-ADDRESS 
R3 CONTAINS DST-ADDRESS 

SAVE LENGTH IN RC1 

SAVE SRC-ADDRESS IN IDCT03 

SAVE DST-ALDRESS IN IDET13 

INSTRUCTION DEPENDENT ALU-FUNCTION A S "A-1" 

INSTRUCTION r#PF.WENZ CLOCKING OF PSL CONDITION CODES IS: 

z. alu=olu^t:, n.alu signcudtj, v o, c c 



STATE-REGISTER: 

;INTRPT 




ZZ-ESOAA-124.0 ; DECMAL.MIC C600. 12043 
; P1W124.MCR 600.12043 MICR02 1L(03) 
; DECMAL.MIC [600,12043 Decimal string 



U 0484, 0803,603C, CI 80, 3D88. 0000, 0290 



U 0290, 06G1, 0029,7980, FAF8,0084,647E 



U 02F0. 001D,0010.C580.3E98. 1400.6495 



E 7 
q 
14-Jan-82 15:30:16 VAX1 1/780 



Oecimal string 14-Jan-82 
^ g2 

MOVP 



Fiche 3 Frame E7 Sequence 494 

Microcode : PCS 01, FPLA OE, WCS124 Page 493 



U 0495. OC19,2035,6DFO,2678,1470.A824 
U 049D, 0O4O,803C,B5CO,3C00. 0010.0850 



; ENTER HERE FROM D-FORK WITH LENGTH IN Q, SRC-ADDRESS IN D 



18733 

18734 484: 

18735 MOVP. INI T: 

1 8736 ALU Q . 0XTCUORD3 , 

18737 RCtTU.ALU, 

18738 ID£T03J>,D_ALU 

18 739 ; r = 

18740 =00***** 

18741 SC ICC. 303, 

18742 AL0NOT.D,R[R153_ALU, 

18743 DK/RlGHT, 

18744 CALUJ/ASPC 

18746 =11*****' 

18747 MVP.IO: STATE FE, 

18748 ALU D+Q+1 ,RCR33 ALU, 

18749 IDL713 D,J/MVP.H 

18750 =;END 

18751 =C*** 

18752 MVP.I1: STATE.STATE-FE, 

18753 ALU.Q.AND.KC.FFF03, 

18754 SET.CC(LONG), 

18755 LAB RCR153, 

18756 Iff(SC>,D Q, 

18757 CALL.J/8CD.FPD.00 

18 758 ; 

18759 =1*** IDCFPDA3 D, 

18760 ALU LA, Q~ALU. RIGHT, 

18761 CLK.UBCC7BYTE 

18762 =;END ; ~ 



ISOLATE SRC-LENGTH 
SAVE LENGTH 
SAVE SRC-ADDRESS 



ID-ADDRESS FOR LATER USE 
SAVE NEGATIVE LENGTH 
DIVIDE LENGTH BY 2 
EVALUATE DST-ADDRESS 

REENTER HERE AFTER A FAULT 
USE FE TO CLEAR STATE 
GENERATE DST ADDRESS 
SAVE INITIAL ADDRESS IN T1 



CLEAR STATE-REGISTER 

TEST ILLEGAL BITS OF LENGTH 

CLOCK z-eiT 

GET LENGTH 

GET SRC-ADDRESS 

SET 1. PART DONE 

LOAD RETURN-ADDRESS FOR FPD 
GET LENGTH 



U 0850. 0819,BB'»5,OD80,F888,0010,OAF7 



ZZ-ESOAA-124.0 ; DECMAL.MIC [600,1204] 
; P1W124.MCR 600.12043 MICP02 1L(03) 
; DECMAL.MIC C600. 12043 Decimal string 



F 7 



Fiche 3 Frame F7 



Decimal string 14-Jan-82 Fiche 5 Frame ff Seguen 

14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA 0E. WCS124 
: MOVP 



ce 495 



Page 494 



U0851, 0003,173C,C1FO,2E80,0030,088D 
U 0853, 0018, 1700, 1180. FA88, 0000,000 A 

U 000A, 0819,OF24,6180,F800,0000,085A 
U CODE, OOOC, 0038,01 CO,F898,0010,0058 

U 0058, 0019,2015,0180.FA80,4000,OC6B 
U 0078, O018,0E00,1180,FA98,H04,2A86 

U 0A86, 0040,803C, 01 CO, FAOO, 001 0,0850 
U 0A87, 0000,003C, 4180, F800,H04,6033 



18763 =00 
18764 

18765 MVP.O: LA RACR13. 

18766 AL0_Q-t*C.33.D_ALU, 

18767 CUCTUBCC.BYTET 

18768 ALU?,CALL.J/READO 
18769 



GET SRC-ADDRESS 
UPDATE LENGTH 

CALL BCD-READ-SUBROUTINE 



18770 FINIO: .-START OF ROUTINE TO RESET REGISTERS AND SET PSL-CC 



;01- 

N AMX.Z TST. 

AEU 0CAT.RCR03.ALU, 

Q lBCT03,STATE3-0?, 

J7FINI1 

;11- 

RCR13UHCC.43. 

STATE3-0? 

•BRANCH ON 1. WRITE BIT 

;101*- 

D D.ANDN0T.KC.F3. 

BrDSGN?,J/HVP. FIRST 

;111*~ 



LA RACR33. 
Q_CB.CLK.UBCC 



18771 

18772 

18773 

18774 

18775 

18776 

18777 =11 

18778 

18779 =;END 

18780 =101* 
18781 
18782 
18783 
18784 
18785 
18786 

18787 =;END 

18788 =10***** 

18789 MVP.1: INTRPT. STROBE, 

18790 RCR03 Q+KC.83.CALL.J/WRITE 

18791 ; = 

18792 =11***** 

18793 RCR33.LA-KC.43, 

18794 STATE STATE. 0R.KC.43. 

18795 BEN/INTERRUPT 

18796 =;END 

18797 =110 
18798 
18799 
18800 
18801 
18802 
18803 
18804 
1S805 =;END 



BR ANCH ON INTERRUPT REQUEST 

ALU RCR03. 

Q aCU.RIGHT. 

CDc.UBCC.BYTE.J/MVP.O 

STATE.KC.803, 
J/SAVP.8CD 



CLEAR N-6IT 

CLEAR RO 

GET SRC-ADDRESS 



UPDATE SRC-ADDRESS 

TEST FOR 1. TIME THROUGH 



STRIP OFF SIGN-NIBBLE 
TEST DECIMAL SIGN 

GET DST-ADDRESS 
CLOCK LENGTH 



STROBE FOR LATER TESTING 
UPDATE LENGTH, WRITE DATA 



UPDATE DST-ADDRESS 

SET 1. TIME BIT OF STATE 

TEST FOR PENDING INTERRUPTS 



GET LENGTH 

DIVIDE IT BY 2 

LOOP BACK TO READ NEXT LONGWORD 

SET INTERRUPT-BIT OF STATE 

SAVE CONTEXT AND TAKE INTERRRUPT 



U 085A, OOOC .0038.01 C0.F898.O010.0O58 
U 085B, OOOC.0038.09CO.F898.1414.2058 



ZZ-ESOAA-124.0 ; DECMAL.MIC [600,12043 
; P1W124.MCR 600.12043 MICR02 1L(03) 
; DECMAL.MIC [600.12043 Decimal string 



6 7 
g i4-Jan-82 Fiche 3 Frame 67 
14-Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01. FPLA OE, WCS 



Decimal string 14-Jan-82 
MOVP 



Seguence 496 
124 



Page 495 



U 0B24. 001D.1A10.0180.FA88.0000.00F9 
U 0825, 001D.1A10.C180.3E88.0000.00F9 

U 00F9. 0000.003C,0180,F800,0000.0106 
U OOFD, 0838.003A,8880,F800,2400.0008 



18806 
18807 

18808 =10 
18809 



ENTER HERE AFTER READING FIRST LONGWORD OF SRC-STRING 



18810 MVP.FIRST: 



BRANCH ON BCDSGN 
10 



18811 

18812 

18813 

18814 

18815 

18816 

18817 =;END 

18818 

18819 

18820 

18821 

18822 

18823 



LARAr.R33.Q_LB.CIJC.UBCC. 
J/BVP.1 

;11 

STATE STATE.0R.KC.23, 
LA RArR33.Q_LB.CLK.UBCC. 
J/&VP.1 



GET DST-ADDRESS. CLOCK LENGTH 



SET SIGN-BIT 

GET DST-ADDRESS. CLOCK LENGTH 



.•ROUTINE TO SET FIRST PART DONE FLAG" AND GENERATE THE 
.•ADDRESS 33 FOR IDCFPDA3. AS WELL AS TEST THE 
;PSL Z-BIT TO CHECK FOR ILLEGAL LENGTHS. 
.—^ :THIS ROUTINE IS USED BY MOST DECIMAL STRING INSTRUCTIONS 

18824 BCD. FPD. 00: 

18825 ALUJM-Q+1.RCR13 ALU. 

18826 PSL.CC7.J/BCD.FPD 

18 827 • 

18828 BCD.FPD.O: 

18829 ALU n+Q+1,R[R13 ALU. 

18830 IDCT03.D.PSL.CC? 
18831 



LOAD HIGH SRC-ADDRESS 
TEST LENGTHS 



LOAD HIGH SRC-ADDRESS 

SAVE LOW ADDRESS. TEST LENGTHS 



BRANCH ON PSL Z-BIT. (V-8IT=0> 



18832 =10*1 
18833 

18834 BCD. FPD 

18835 J/RSVOPR 

18836 ;11*1 

18837 ALU_KC.193,D ALU.LEFT.SI/MUL". 

18838 SET.FPD.RETURN8 

18839 =;END 



ILLEGAL LENGTH 

GENERATE ADDRESS '33" 
SET FPD-BIT OF PSL 



ZZ-ESOAA-124.0 ; DECMAL.MIC C600.12043 Decimal stri 
P1W124.MCR 600,12043 MICR02 1L(03) H-Jan-82 

: MOVP 



DECMAl!mk L*606,12O43 Decimal string 



N 7 
no K-Jan-82 Fiche 3 Frame H7 Seguence 497 
15:30:16 VAX11/780 Microcode : PCS 01. FPLA OE, WCS124 



Page 496 



U 088D. 0001.363C.C5F0.2E88.0000.0A93 

U 088F, 0001.3A3C,C5F0.2E83.0000.0898 

U 0A93. 0OO1.203C.0180.FA98.0000.0B29 
U 0A97, 0001 .203C. 31 F0.2E98.0020. 0826 
U 0B26, 0819.2030,A580,F800.0020,0828 

U 0828, 0003,003C,3180.3E90,2000,082C 
U 0829, 0003,00?C.0180,FA90,2000,082C 
U 0B2C, 2014,0038.0180,F801,4200,OOA8 



18840 
18841 
18842 
18843 
18844 
1884S 
18846 
18847 
18848 
18849 
18850 
18851 
18852 
18853 
18854 
18855 
18856 
18857 
18858 
18859 
18860 
18861 
18862 
18863 
18864 
18865 
18866 
18867 
18868 
18869 
18870 
18871 
18872 
18873 



=1101 
FINI1: 

FINI2: 

=;END 
=011 

FINI3: 

FINK: 

=;END 
FINI5: 

FJNI6: 

FINIS: 
FINI15: 



.•ROUTINE TO SET PSL CONDITION CODES, AND RESET GENERAL REGISTERS 

.EXPECTS RO TO HAVE BEEN RESET, Q=SRC-ADDRESS 

.THIS ROUTINE IS USED BY MOST DECIMAL STRING INSTRUCTIONS. 



.-BRANCH ON SIGN-BIT OF STATE 
;1101~ 



RCR1 3 Q 

Q IDCTlJ,STATE7-4?. 

J7FINI3 

.-1111 

RCRUQ. 

Q IDCT1J, 

P5L.CC?,J/FINI16 



.BRANCH ON OVERFLOW-BIT OF STATE 

;011 

RCR33 Q.J/FINI8 

;111 

RCR33 Q, 
Q.IDLTES3.SET.V 

SET.V, 
ALU .Q.OR.KC.603 .D.AL U 

IDCCESJ D, 
ALUJXA7.RCR23 ALU. 
C LR.FPD.J/FINIT 5 

ALUJ)(A>,RCR23_ALU, 
CLR.FPD.J/FINIT5 

FLUSH. IB.PttVA PC. 
J/IB.FILL 



R1 GETS SRC-ADDRESS 
TEST FOR OVERFLOW 



R1 GETS SRC-ADDRESS 
GET DST-ADDRESS 
TEST PSL Z-8IT 



RESET R3 

R3 GETS DST-ADDRESS 
OVERFLOW. SET V-BIT OF PSL 

SET V-BIT ON OVERFLOW 
GENERATE TRAP-VALUE 

LOAD TRAP-CODE 

CLEAR R2 

RESET FPD-BIT IN PSL 

CLEAR R2 

RESET FPD-BIT OF PSL 

GET READY FOR NEXT INSTRUCTION 



ZZ-ESQAA-124.0 ; DECMAL.MIC C600. 12043 
; P1W124.MCR 600,12043 MICR02 11. (03) 
; DECMAL.KIC C600. 12043 Decimal string 



I 7 
a 14-Jan-82 Fiche 3 Frame 17 seguen 

14-Jan-82 75:30:16 VAX11/780 Microcode : PCS 01, FPLA OE, WCS124 



Decimal strirv 
>-82 
NOVP 



Sequence 498 



Page 497 



U 0898, 0018,9638,4180,F800,0060,OA93 
U 089F, 0850,1638,0180, F 908, 0000, 0AA3 

U 0AA3, 001D,1614,2180,F800,0200.0872 

U 0AA7, O0O1,203C,31F0,2E98,0020,O926 

U 0872, 0818,0038,8580,F800,0000,OB2D 
U 0873, 083B,0910,2380,F800,0000,06EC 

U 06EC, 0001,203C,0180,F800,0200,082t 
U 06EE, 0001,203C,0180,FA98,0000,OB29 
U 0B2D, O0O0,803C, 0180, 3000,0000, CA93 



18*74 

18875 =1011 

1 8876 



ENTER HERE IF SIGN-BIT OF STATE IS SET 

BRANCH ON PSL Z-BIT 

1011- 



18877 FINI16: ALU. Kl.803,N*Z ALU,BYTE, 
STATE7-4?,J/FIW3 



18878 
18879 



;1111 



18880 FINI17: ALURCCT13,D_ALU.RIGHT, 

18881 STATE7-4? 

18882 =;END ; 

18883 =011 .-BRANCH ON OVERFLOW-BIT 

18884 ;011« 

18885 F INI 18: ALU D+Q,VAK/LOAD, 

18886 KL*.T43,STATE7-4?,J/FINI20 

18887 ;11V 

18888 F INI 19: RCR33 Q, 

18889 Q IDlTES3,SET.V, 

18890 J7FINI5 

18891 =;END 

18892 =10 .-BRANCH ON BIT 4 OF STATE 

18893 ;1f 

18894 FINI20: D KC.C3.J/FINI21 

18895 ;T1- 

18896 ALU 0*KC. 143+1 ,D ALU.LEFT, 
?8897 SI/MUL-,IR2-1? " 

1 8898 = ; END ; 

18899 =0* .-BRANCH ON BIT 2 OF OP-CODE 

18900 ;0*- 

18901 VA Q,J/F1NI21 

18902 -ift— — -m-— . 

18903 RCR33.Q.J/FINI8 

18904 =;END ; 

18905 FINI21: CACHEJ)CBYTE3,J/FINI3 

18906 ; = 



SET N-BIT 

TEST FOR OVERFLOW 

RESULT IS -0, SO GET DST-LENGTH 
AND TEST FOR OVERFLOW 



NO OVERFLOW, LOAD DST-ADDRESS 
TEST FOR PACKED-TO-NEMERIC CONV. 

R3 GETS DST-ADDRESS 
SET V-BIT 



D GETS +0 

PACKED-TO-NUMERIC CONVERSION 
GENERATE CONSTANT .28 



PACKFD-TO-SEPARATE 

PACKED TO TRAILING, DON'T CHANGE 

WRITE +0 



ZZ-ESOAA-124.0 ; DECMAL.MIC C600.12043 
P1W124.MCR 600.12043 MICR02 1L(03) 
DECMAL.MIC [600,12043 Decimal string 



J 7 
Decimal string 14-Jan-82 Fiche 3 Frame J7 Sequence 499 
14-Jan-82 T5:30:16 VAX1 1/780 Microcode : PCS 01, FPLA OE, WCS124 Page 
: CMPP3, CMPP4 



498 



18907 

18908 

18909 

18910 

18911 

18912 

18913 

18914 

18915 

18916 

18917 

18918 

18919 

18920 

18921 

18922 

18923 

18924 

18925 

18926 

18927 

18928 

18929 

18930 

18931 

18932 

18933 

18934 

18935 

18936 

18937 

18938 

18939 

18940 

18941 

18942 

18943 

18944 

18945 

18946 

18947 



• TOC 



Decimal string 



CMPP3, CMPP4" 



COMPARE PACKED BCD-STRINGS 
ALGORITHM: 

1. FIRST THE LAST SPECIFIERS ARE EVALUATED, THE LENGTHS ARE CHECKED, 
AND FIRST PART DONE FLAG IS SET. 

THE TWO INSTRUCTIONS, CMPP3 AND CMPP4, HAVE INSTRUCTION-FLOWS 
THAT MERGE AT 'VfP.l. 

2. THE LENGTHS OF THE TWO DECIMAL STRINGS ARE COMPARED (*tMP40">. 
IF THEY ARE NOT EQUAL, THE ROUTINE READS LEADING BYTES OF 

THE LONGEST STRING ( , tMP41 ,, OR *TMP4^ ,, ), UNTIL THEY BECOME 
EQUAL, OR A NON-ZERO BYTE IS FOUND. 

3. IF THE LENGTHS ARE EQUAL, WE ENTER THE MAIN LOOP ( , tMP3LP ,, >. 
THE LEADING BYTE OF EACH STRING IS READ AND COMPARED. 

IF THEY ARE EQUAL, THE NEXT PAIR OF BYTES ARE READ, 
AND SO ON. 

4. IF ONE STRING CONTAINS A LARGER DIGIT, THE SIGN-NIBBLE OF THAT 
STRING IS THEN READ AND USED TO DETERMINE THE RESULT OF 
THE COMPARISON. 

ST0RA6E: 

SC=# Or BYTES IN STRING 1,FE=# BYTES IN STRING 2, 
R1 5=SRC1 -ADDRESS-1 ,R3=SRC2-ADDRESS-1 
RC0=1. LENGTH/2 
R0=2. LENGTH/2 
IDCT03=SRC1-ADDRESS,IDCT13=SRC2-ADDRESS 

INSTRUCTION DEPENDENT ALU-FUNCTION IS "A-1". 
MNEMONICS ARE CMPP3 AND CMPP4. 
OP-CODES ARE 35 AND 37 

STATE-REGISTER: 



INTRPT ; 



NON-0 
STRING 




ZZ-ESOAA-124.0 ; DECMAL.MIC C600.12043 
; P1U124.MCR 600.12043 MICR02 1LC03) 
; DECMAL.MIC [600,12043 Decimal string 



Decimal string 14-Jan-82 
H-Jan-82 15:30:16 



K 7 

Fiche 3 Frame K? seguen 

VAX1 1/780 Microcode : PCS 01, FPLA 0E, WCS124 



Sequence 500 



U 0489, OC03,003C,C180,3COO,0050,082E 
U 0B2E, 0OO3,A03C,C1F0,2D8O,0O82,0OB3 

U 0485. 0019,6024,8D80,F800,0050,OOA3 

U 00A3. 0003.A03D,C180,3D80,0082,037E 
U 00B3, 0019.2001 .0580,FAF8,0180,C47E 

U 00F3, 0019,6024,8D30,F800,0030,OB34 
U 0834, 001D.OOOC,C580,3E98,0000,05C1 

U 05C1, 001B,BA15,0580,F988,0082,OOF9 
U 05C9, 0000.003C.8580,3COO,0090,E835 

U 0B35, 0FO0,123C,198O,FA78,1404,68A3 



: CMPP3, CMPP4 

ENTER HERE FROM D-FORK WITH L IN Q,A1 IN D, IN CMPP3-INSTRUCTION 



Page 499 



ALU 0(A) ,N*Z ALU. VftCO, 
QK/RlGHT,IDLT03j),D_q 

ALU Q.0XTCBYTE3 .SC.ALU, 
Q I&CT03, 
RftT03_ALU,J/CMP.I 



ENTER HERE FROM D-FORK WITH L1 IN Q,A1 IN D, IN CMPP4-INSTRUCTION 



ALU Q.ANDN0T.KC.1 F3, 
NfcZ_ALU.V*CJ),W0RD,QK/RI6HT 



18948 

18949 

18950 489: 

18951 

18952 

18953 

18954 

18955 

18956 

18957 

18958 

18959 

18960 485: 

18961 

1 8962 

18963 =C10**1* 

18964 ALU O.0XTCBYTE3. 

18965 SC *LU,RCCT03_ALU, 

18966 IDtT03 D, 

18967 CALL.J7SPEC 

18968 ; 

18969 =011**1* 

18970 CMP.I: ALU Q-JCC.13.RCR153.ALU.L0N6, 

18971 SC_5C+1,FEK/L0AD,CALL,J/ASPC 
!8972 ; -= 

18973 =111**1* 

18974 ALU Q.ANDNOT.KC.1F3, 

18975 N AMX.Z TST,WORD,QK/RIGHT, 

18976 J7CMP4IT 

18977 =;END ; 

18978 CMP4I1: ALU DCINST.DEP3Q, 

18979 RCR33 ALU,I0CT13 D 

18980 =0*** ;0**» 

ALUQ.0XTC8YTE3+KC. 13, SC.ALU, 

RCCT13 ALU, 

PSL.CC?, 

CALL,J/BCD.FPD 

; -J *** 

IDCFPDA3 D, 
SC_NABS<5C-FE) ,CLK.UBCC 



SET PSL Z-6IT 

DIVIDE LENGTH BY 2, STORE ADDRESS 

STORE LENGTH IN SC, DUPLICATE IT IN D 

RETRIEVE ADDRESS 

SAVELENGTH IN RC 0, JOIN CMPP4 



18981 

18982 

18983 

18984 

18985 

18986 

1P987 

18988 =;END 

18989 

18990 

18991 

18992 



STATE KCZER03. 
D O.Lte RCR153, 
EALU?,J7CMP40 



MASK OUT 5 LOU BITS 

CLOCK PSL Z-BIT, DIVIDE LENGTH BY 2 



ISOLATE 1. LENGTH 
STORE FIRST LENGTH IN SC 
SAVE ADDRESS IN TO 
EVALUATE L2 



STORE HIGH SRC-ADDRESS 
INCREMENT SRC1 -LENGTH 



STRIP OFF LOW 5 BITS 
DIVIDE LENTGTH BY 2 



SUBTRACT 1 FROM D 
INITIALIZE SRC2-ADDRESS 

INITIALIZE SRC2-LENGTH 

SAVE SRC2-LENGTH 

TEST FOR LEGAL LENGTHS 



LOAD 33 

GET DIFFERENCE IN LENGTHS 

INITIALIZE STATE-REG. 
GET 1. ADDRESS 
COMPARE LENGTHS 



ZZ-ESOAA-124.0 ; DECMAL.MIC C600.12043 
P1U124.MCR 600.12043 MCR02 1L(03) 

DECMAL.MIC C600.12043 Decimal string 



U 08A3. OF00.003C.0580,FA18,0084,A8D8 

U 08A7. OF18,0014.05F8,FAF8,4385,A8EE 
U 08AB, OF18.0014.0580.FAF8.0300.88AE 



L 7 
scimal string 14-Jan-82 Fiche 

14-Jan-82 15:30:16 VAX1 1/780 Microcode 
CMPP3. CMPP4 



Decimal strii 



U 08AE. 0000. 923C. 0180,4278.0090. C88B 
U 08AF, 0000.003C.C1F0.2D00.0000.083A 

U 08BB, 0018.1814.0580.FAF8.0200.08AE 

U 08BF, 001B.0000.1980.FA18.0C91.0B36 



18993 
18994 
18995 
18996 
18997 
18998 
18999 
19000 
19001 
19002 
19003 
19004 
19005 
19006 
19007 
19008 
19009 
19010 
19011 
19012 
19013 
19014 
19015 
19016 
19017 
19018 
19019 
19020 
19021 
190*2 
19023 
19024 
19025 
19026 
19027 



=0011 
CMP40: 



=;END 
=1110 

CMP41: 



=;END 
=1011 



.-BRANCH ON EALU Z AND N-8ITS 

;0011 

SC SC-KC.13. 
LAB.RCR33.L0N6. 
D 0.J/CMP420 

;0l1l 

FE.SC-KC.13.SC FE. 

VA LA+KC.1 3.RCR153.ALU.L0N6. 

00,00. 

IR^RPT. STROBE. 

J/CMP3L10 

;1011 

VA.LA+KC.13.RCR153 ALU.LONG. 
FE SC+FE.D O.J/CMP?1 



BRANCH ON LOW BYTE OF D .NE. 

1110 — 
DCBVTE3.CACHE. 
SC SC+1.CLIC.UBCC. 
LAS RCR153, 
EAL07.J/CMP410 
;1111- 

Q IDCTO3.LC.RCCT03, 
J7CMPS6N1 



BRANCH ON EALU Z-BIT 
1011- 

CMP410: VA LA*KC.13,RCR153.ALU,LONG, 
D.807.J/CMP41 

ALU.D.OXTCLONG3-KCZER03 , 

CLK.UBCC, 

SC FE. 

LAB.RCR33 .LONG, J/CMP3L2 



3 Frame 17 Sequence 501 

: PCS 01. FPLA OE. UCS124 Page 500 



ADJUST 2. LENGTH 
ADDRESS OF 2. STRING 
2. STRING IS LONGER 



LOAD 1. SRC-ADDRESS 

STROBE INTERRUPTS 

SANE LENGTH, ENTER MAIN LOOP 

LOAD 1. SRC-ADDRESS 
1. STRING IS LONGER 



READ LEADING BYTE OF STRING 1 
INCREMENT DIFFERENCE IN LENGTHS 
GET 1. ADDRESS 
TEST DIFFERNCE 

GET SRC-ADDRESS AND LENGTH 
NON-ZERO BYTE 



LOAD AND UPDATE 1. ADDRESS 
TEST BYTE 

CLOCK BYTE JUST READ 



STRINGS ARE OF EQUAL LENGTH 



ZZ-ES0AA-124.0 ; DECMAL.MIC C600.12043 



U 08CE, 0000,923C.01F8,4218.0181.08DB 
U 08CF, 0000.003C.0180,F800,0080,A838 

U 0B38, 0018,0014, 1D80,F800,0200,036A 



U 08DB. 0018,18H,0580,FA?8,0391,C8CE 
U 08DF, 0O18.0O00,0580.FA98,0081,08FF 



. PI VII 24 .NCR 600.12043 
; DECMAL.MIC C600.12043 



MICR02 1L(03) 
Decimal string 



M 7 
Decimal string 14-Jan-82 



»cimal string Ifr 
14-Jan-82 T5:30:16 
CMPP3. CMPP4 



Fiche 3 Frame M7 



Seguence 502 



VAX11/780 Microcode : PCS 01. FPLA 0E, WCS124 



Page 501 



19028 
19029 
19«'0 
19031 
19032 
19033 
19034 
19035 
19036 
19037 
19038 
19039 
19040 
19041 
19042 
19043 
19044 
19045 
19046 
19047 
19048 
19049 
19050 
19051 
19052 
19053 



=1110 
CMP42: 



.-BRANCH ON LOU BYTE OF D 

;1110 

DCBYTE3 CACHE, 

LABRCR33,QJ>, 

SCFE.FE.SC, 

EACu?.J/CMP420 

;1111- 



=;END 



=101: 



SCSC-FE 



VA JAHCCSC3, 
J/TMPSGN21 



;8RANCH ON EALU 2-61 T 
;1011- 

CMP420: VA.LA+KC.13.RCR33 ALU.LONG. 
FESC-H.CLK.U3CC.5C FE. 
D.B07.J/CMP42 

;1111 

RCR33 LA-KC.13.SC FE. 
J/CMP~L4 



READ BYTE FROM STRING 2 
GET ADDRESS READY 

TEST DIFFERENCE IN LENGTHS 

NON-ZERO BYTE 

LOAD ADDRESS OF SIGN-BYTE 
CHECK SIGN-BYTE 



LOAD AND UPDATE 2. ADDRESS 
INCREMENT COUNT 
TEST BYTE FOR 

UPDATE 2. ADDRESS 

STRINGS ARE OF EQUAL LENGTH 



*********************************************** 
* Patch no. 063, PCS 08DF trapped to WCS 1189 * 

**************** V**** ********* - ******** ******** 



=;END 



ZZ-ESOAA-124.0 ; DECMAL.MIC C60O,12043 
; P1W124.MCR 600.12043 MICR02 1LC03) 

; DECMAL.MIC [600.12043 Decimal string 



U 0AE5. OC1B,8O24,61EO,F80O,0O82.0B45 
U GAE7, 0018,1814. 0580. FAF8.4200.08EE 



N 7 
Decimal string 14-Jan-82 Fiche 3 Frame H7 Seguence 503 

14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA OE, WCS124 Page 502 

: CMPP3, CMPP4 



U 08EE, 001F,8E00, 0180,4218,0010. 0B36 
U 08EF, 001F,8EOO,0180,4218,14K,2B36 

U 0836, 0018, 1814, 0580,FA98,0384,A8FA 
U 0837, 0000,003C,4180,F800,1404,6033 

U 08FA, 0000,003C,C1F0, 2000,0000, 083A 
U 08FB, 0018,0010, 1D80,F800, 0200, 036A 

U 08FF, 0003,943C, 01 C0,4278,0O0O,0AE5 



19054 

19055 

19056 

19057 

19058 

19059 

19060 

19061 

19062 

19063 

19064 

19065 

19066 

19067 

19068 

19069 

19070 

19071 

19072 

19073 

19074 

19075 

19076 

19077 

19078 

19079 

19080 

19081 

19082 

19083 

19084 

19085 

19086 

19087 

19088 

19089 

19090 

19091 

19092 

19093 

19094 

19095 

19096 

19097 

19098 

19099 

19100 

19101 

19102 

19103 

19104 



=101 
CMP3LP: 



COMPARE TWO DECIMAL STRINGS WITH SAME LENGTH 
R15 HAS ADDRESS FOR STRING 1 
R2 HAS ADDRESS FOR STRING 2 
SC HAS LENGTH 



BRANCH ON SC .GT. 



MAIN LOOP FOR COMPARING TWO STRINGS OF EQUAL LENGTH 
101 



ALU J>.OXTCBYTE3.ANDNOT.KL\F3, 
SC *LU,D_Q.QJ>, 
J/EP3S B 

CMP3L1: VA_LA+KC.13,RCR153.ALU, 

INTRPT.STROBE.D.BO? 
=;END 

BRANCH ON LOU BYTE OF D NE 
1110 — 



=1110 
CMP3L10: 



ALU.D.OXTCBYTEJ-Q.CLK.UBCC, 
DCB?TEJ CACHE .LABRCR33 , 
BEN/INTf RRUPT , J/CMP3L2 
;1111- 



=;END 
=110 



ALU D.OXTCBYTEJ-Q.CLK.UBCC, 
DCB?TE J CACHE ,LABRCR33 , 
STATE„STATE .0R.KCT8J , 
BEN/lflTERRUPT , J/CMP3L2 



•BRANCH ON INTERRUPT REQUEST 

CMP3L2: VAJAHCC.13,RCR33 ALU.LONG, 

SC SC-KC.13,FEK/L0AD, 

AL0?.J/CMP3L3 

; t 1 1 

STATE K£. 803, 
J/SAVp.BCD 

=1010 ;BRANCH ON ALU Z AND C-BITS 

CMP3L3: Q IDCT03.LC RCCT03, 
J7CMPSGN1 

VA LA+KCSC3+1 , 

J/TMPSGN21 

=1111 ; 1 11 1 

CMP3L4: Q D.0XTCBYTE3, 

DEBYTE3 CACHE, 

LAB.RCRT53, 

SC?,J/CMP3LP 
=; FND ; 



STRIP OFF SIGN-NIBBLE 

THIS IS SIGN-6YTE 

UPDATE AND LOAD ADDRESS 
TEST FOR STRING 



COMPARE THE TWO BYTES 
READ NEXT BYTE 
TEST FOR INTERRUPT 

COMPARE THE TWO BYTES 
READ NEXT BYTE 
SET NON-ZERO BIT OF STATE 
TEST FOR INTERRUPT 



LOAD AND UPDATE ADDRESS 2 
UPDATE COUNT 
COMPARE THE BYTES 

SET INTERRUPT-BIT OF STATE 

SAVE CONTEXT AND TAKE INTERRRUPT 



GET SRC1-LENGTH AND ADDRESS 
STRING1 > STRING2, CHECK SIGN 

LOAD SRC2 SIGN-ADDRESS 
STRING2 > STRING 1, CHECK SIGN 

SAVE 1. BYTE IN Q 

READ 2. BYTE 

GET 1. ADDRESS 

TEST LENGTH, LOOP BACK 



U 0B3A, 0011 .2014.0180,F898,0200,083C 
U 0B3C. 0018,8038,0580,4000,0050,083E 

U 083E, O0O1,2F3C,C5F0,2E88.0000,0882 

U 0882. 0003,003C,0180,FA80.0000.0A93 
U 0883. 0018,8038,4180,F800,0050,0882 



ZZ-ESOAA-124.0 ; DECmL.MC C600. 12043 D< 

; P1W124.HCR 600,12043 MICR02 1L(03) 

; DECWAL.WC [600.12043 Decimal string 



cimal string 
14-Jan-82 15:30:16 
: CHPP3. CHPP4 



B 8 
H-Jan-82 



Fiche 3 Frame B8 



VAX1 1/780 Microcode : PCS 01, FPLA OE, WCS124 



Seguence 504 



U 0B44, 0003,OF3C,C1FO,2E80.0000.088A 

U 088A, 0O01,203C,C5F0,2E88.0000,0A93 
U 088B, 0018,0038,0580,F800,0050,088A 



19105 
19106 
19107 
19108 
19109 
19110 
19111 
19112 
19113 
19114 
19115 
19116 
19117 
19118 
19119 
19120 
19121 
19122 
19123 
19124 
19125 
19126 
19127 
19128 
19129 
19130 
19131 
19132 
19133 
19134 
19"35 
19136 
19137 
19138 
19139 
19140 
19141 
19142 



CMPSGN1: ;C0HE HERE WHEN STRING 1 IS GT. STRING 2 

;LC HAS SRC1-LEN6TH, Q HAS SRC1-ADDRESS 



ALU Q+LC.VAK/LOAD, 
LA.RACR3J,L0NG 



ALU KC.13,N*Z_ALU.V*CJ>, 
DCB?TE3_CACHE 



CMPSGN1.1: 

RCR13Q,Q_IDCT13, 
BCDSGfl? 



=10 



;BRANCH ON SIGN-NIBBLE 

;10 

CMPSGN1.2: 

ALU 0(A), RCR03 ALU, 

J/FTNI3 

;11- 

ALU KC . 803 ,NftZ .ALU. MCJO. 

BVTt,J/C«PSGNl.2 



=;END 



.-ENTER HERE IF SRC2>SRC1 



CMPSGN2.2: 

ALU 0<A),RCR03ALU. 
Q_lB[T03,BCDSGfi? 



=10 



BRANCH ON SIGN-NIBBLE 



CMPSGN2.3 

RCR13 Q,Q.IDCT13, 
J/FINT3 

ALU KC. 1 3 ,N*Z„ALU. VfcC J), 
J/C«PSGN2.3 



LOAD SIGN-BVTE ADDRESS 

CLEAR CONDITION-CODES 
READ SIGN 



RESET R1 

TEST SIGN OF STRING 1 



RESET RO WITH 
JOIN FINISH-ROUTINE 

STRING 2 IS GREATER 
SET N, CLEAR Z,C,V 



RESET RO 

6ET SRC1-ADDRESS. TEST SIGN 



RESET R1, GET SRC2-ADDRESS 
STRING2 IS GREATER, FINISHED 

STRING1 IS GREATER 



Page 503 



ZZ-ESOAA-124.0 ; DECMAL.MIC C600.12043 
P1U124.MCR 600.12043 MICR02 1L(03) 
DECMAL.MIC C600, 12043 Decimal string 



Decimal string 

K-Jan-82 75:30:16 
: CMPP3, CMPP4 



C 8 
K-Jan-82 



Fiche 3 Frame C8 



VAX11/780 Microcode : PCS 01, FPLA OE. WCS124 



Sequence S05 



Page 504 



U 0845, OC19,0034,CDEO,F800,0192,0846 
U 0846, 0O00,013C,0187,F800,0010,A7F0 

U 07F0, 0018,1238,0180,F800,1454,2362 
U 07F1, 0018,1238,0580.F800,0050,0362 

U 0362, 0C00.O03C.C1F0,2COO,000O,083E 
U 0366, 0000,173C,0180,F800,0000,0025 

U 036A, 0018,8038,4180,4000,0050,0844 



U 0025, 0003,003C, C1FO,2E80,0050,088D 



U 002D, OC03,OF3C,C1FO,2E80,0050,0892 



19143 
19144 
19145 
19146 
19147 
19148 
19149 
19150 
19151 
1915*? 
19153 
19154 
19155 
19156 
19157 
19158 
19159 
19160 
19161 
19162 
19163 
19164 
19165 
19166 
19167 
19168 
19169 
19170 
19171 
19172 
19173 
19174 
19175 



CP3S8: 



.ENTER HERE AFTER REACHING SIGN-BYTES 

;D HAS 2. STRING SIGN-BYTE, Q HAS 1. STRING SIGN-BYTE 



FE SC, 

ALO D.AND.KC.F03,CLK.JBCC. 

SCj*LU.D_Q.QJ> 



=0 



=;END 
=001* 



EALU SC-FE.CLK.UBCC, 
SGN/tLK.SD+SS.Z? 



BRANCH ON ALU Z-BIT 



ALU KL".83.N*Z ALU.VftC 0, 

STATE.STATE.0R.KC.8J, 

EALU7.J/ CMP.S6N.0O 

ALU KC.13.NfcZ ALU.VftCJ), 
EAL0?,J/CMP.S5N.00 



BRANCH ON EALU Z AND N-BITS 
001*— 

CMP.S6N.00: 

Q.IDCT03, 

D Q,J/CMPS6N1.1 

;011* 

STATE3-0?,J/CMP.S6N.O 
; 1 01 * 

CMPS6N21 : 

ALU KC.803,N*Z ALU.VfcC O.BYTE, 
DCB7TE3_C ACHE,J/CMPS6N 2.2 

=61*1 .-BRANCH ON NOT-ALL-O-BIT OF STA' 

19176 CMP.SGN.6: 

19177 ALU 0(A), NfcZ ALU.VfcC 0, 

19178 RCROJ ALU,Q IDCT03, 

19179 J/FINT1 

1 91 80 ; 1 1 *1 

19181 ALU 0(A>,N*Z ALU.V&C 0, 

19182 RCROJ ALU.D 8,0 IDCTOJ, 

19183 BCDSGfl?,J/CM>.S6N 



STRIP OFF SIGN-NIBBLE 

D GETS 2. STRING SIGN-BYTE 

COMPARE THE HIGH NIBBLES 
TEST FOR ZERO-STRING 



CLEAR CONDITION CODES 

SET NOT-ALL-O-BIT OF STATE 

TEST THE DIFFERENCE 

CLEAR CONDITION CODES 
TEST THE DIFFERENCE 



SRC1-STRING IS GREATER 
GET SRC1-ADDRESS 



TEST FOR NON-ZERO STRINGS 



SRC2-STRING IS GREATER 
READ SRC2-SIGN-BYTE 



BOTH STRINGS ARE 
SET Z-BIT FOR EQUAL STRINGS 
RESET RO, GET SRC1-ADDRESS 
SIGNS DON'T MATTER 

GUESS THAT THEY ARE EQUAL 
RESET RO, GET SRC1-ADDRESS 
TEST SI6N OF SRC2 



D 8 



ZZ-ESOAA-124.0 ; DECMAL.MC C600.12043 Decimal string 14-Jan-82 Fiche 3 Frame 08 Seguence 506 

; P1W124.MCR 600,12043 MICR02 1L(03) K-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA 0E, WCS124 Page 505 

; OECMAL.MIC [600,12043 Decimal string : CMPP3, CMPP4 



U 0892, 0001,2F3C,C5FO,2E88,0000,0882 
U 0893, 0001,2F3C,C5FO,2E88,0000,08C2 

U 08B2, 0001,203C,0180,FA98,0000,0829 
U 08B3, 0018,3038,4180,F800.0050,08B2 

U 08C2, 0018,0038,0580,F800,0050,U8B2 
U 08C3, 0001,203C,0180,FA98,0000,0829 



19185 

19186 =10 
19187 

19188 CMP.SGN: 

19189 RCR13Q,Q 1DCT1J, 

19190 BCDSGN?,j7CNP.SGN.1 

19191 ;11 

19192 RCR13Q,Q IDCT1J, 

19193 BCDSGfl?,J7CHP.SGN.2 

19194 =;END 



ENTER HERE IF ALL BYTES ARE EQUAL EXCEPT SIGN-BYTES. 
BRANCH ON SIGN-NIBBLE OF 2. STRING 
10 ; 

; RESET R1, GET SRC2-6YTE 
; 2. STRING IS POSITIVE 



RESET R1, GET SRC2-BYTE 
2. STRING IS NEGATIVE 



19195 =10 
19196 



BRANCH ON SIGN-NIBBLE OF 1. STRING 



19197 CMP.SGN.1: 

19198 ALU Q,RCR33_ALU, 

19199 J/FTNJ8 

19200 ;11- 

19201 ALU Kl\803,N*Z_ALU.VfcCJ),BYTE, ; 

19202 J/C«P.SGN.1 

19203 =;END ; ; 

19204 =10 ;BRANCH ON SIGN-NIBBLE OF 1. STRING 

19205 ;10 

19206 CflP.SGN.2: 

19207 ALU K[.13,N*Z_ALU.VfcCj). 

19208 J/CWP.SGN.1 

19209 ;11- 

19210 CKPFIN: ALU Q,RCR33 ALU, 

19211 J/FTNI8 

19212 =;END ; 



RESET R3 
FINISHED 

1. STRING IS NEGATIVE 



1. STRING IS GREATER THAN 2. STRING 
RESET R3 



ZZ-ESOAA-124.0 ; DECMAL.MIC C600.12043 
; P1W124.MCR 600.12043 MICR02 1L(03) 
; DECMAL.MIC C600.1204] Decimal string 



E 8 

Decimal string 14-Jan-82 Fiche 3 Frame E8 Seguence 507 
14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA OE, WCS124 Page 
: CVTLP 



506 



19213 
19214 
19215 
19216 
19217 
19218 
19219 
19220 
19221 
19222 
19223 
19224 
19225 
19226 
19227 
19228 
19229 
19230 
19231 
19232 
19233 
19234 
19235 
19236 
19237 
19238 
19239 
19240 
19241 
19242 
19243 
19244 
19245 
19246 
19247 
19248 
19249 
19250 
19251 



,T0C 



Decimal string 



CVTLP* 



convert longword to packed string 

routine for converting a longuord into a packed ,bcd, 

numeric string, 
algorithm: 

1. starting at "l2p.init", the last specifier is evaluated, 
and the length is checked,and first part done fug 

is set cupoo"). 

2. before entering the loop, the longword is left 
adjusted ("l2p1") and negated if negative c12p10"). 

3. the actual loop starts at "l2pl", but we enter at 'x.2pb". 
the algorithm used, is a step-wise, left-to-right, 
evaluation of the expression: 

s= ( . . . <acn>2+acn-1 1 ) *2+acn-23 ) *2+ . . . +ac1 3 ) *2+ac03 

where acn3.acn-13 ac03 are the bits in 

source-longword. 

during each pass through the loop, 

the next bit is read from the src-longword c12pb"), 

the string is multiplied by 2 (decimal) ("l2pl5"), 

and the bit is added in ct2pl30"). 

it the string does not fit in a single longword (8 digits), 

another register is used to store the upper digits, 

and has to be doubled during each pass c12pl5"). 

4. when the string is compl^r ("l^ld"). the string is written into 
memory et2p.write"), using 'bcd-write"- routine. 

5. finally the condition codes are set,and the 
registers are loaded with or addresses ("l2p.f2"). 

6. if a memory-fault or interrupt occurs after 1 . part done has 
been set, the 'bcd. save* '-routine is used to save context, 
on restart, the *bcd.rest0re"-routine is used to restore 
the initial context, and the instruction is restarted at '1.2po0". 



ZZ-ESOAA-124.0 ; DECMAL.MIC C600.12043 
; P1W124.MCR 600-12043 MICR02 1L(03) 
; DECMAL.MIC [600,12043 Decimal string 



Decimal string 
14-Jan-82 15:30:16 



19252 
19253 
19254 
19255 
19256 
19257 
19258 
19259 
19260 
19261 
19262 
19263 
19264 
19265 
19266 
19267 
19268 
19269 
19270 
19271 
19272 
19273 
19274 
19275 
19276 
19277 
19278 



CVTLP 



F 8 

14-Jan-82 Fiche 3 Frame F8 Seguence 508 

VAX1 1/780 Microcode : PCS 01, FPLA 0E, WCS124 Page 



507 



STORAGE: 



UP TO TUO LONGWORDS HAY BE NEEDED FOR DESTINATION,AND 

RCR2J,AND RCR33 ARE USED FOR STORAGE WHILE IT IS BEING 

GENERATED. 

IDCT43 IS USED FOR STORING THE BINARY SRC-DATA, 

RCR13 CONTAINS DST-ADDRESS+1 (HIGH END OF STRING) 

RCR153 CONTAINS DST-LENGTH (NEGATIVE LENGTH-1) 

RCCT13 HAS INITIAL DST-LENGTH 

RCCT53 HAS ORIGINAL LONGWORD. 

RCCT73 WILL CONTAIN ANY OVERFLOW DATA. 

SC CONTAINS SHIFT-COUNT. 

OP-CODE IS W 

MNEMONIC IS "CVTLP" 

INSTRUCTION-FORMAT IS: 

opcode src.rl, dstlen.rw, dstaddr.ab 

INST. DEPENDENT ALU FUNCTION IS "A-B-PSL. BORROW" 

INST. DEPENDENT CLOCKING OF CC IS: l_l. N_N,V_0,C_ALU CARRYCUDT3 

; STATE-REGISTER 

•INTR: ;OVFL. ; 



;1.TIM: 


;SGN: 


;0=1. 


;1=NEG ; 


;1=>1. 


;0=POS ; ; 



G 8 



ZZ-ESOAA-124.0 ; DECMAL.MIC C600.12043 Decimal string 14-Jan-82 Fiche 3 Frame 68 Seguence 509 

; P1W124.MCR 600.12043 MICR02 1L(03) 14-Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01, FPLA 0E, WCS124 Page 508 

; DECMAL.MIC £600,12043 Decimal string : CVTLP 



U 0342, 0803,403C, 1980,F988,1404,6052 
U 0052, 0601,203D,0180,F9A8.0000,047E 

U 0072, 0019.2035 ,6D80,FA98. 0050. 0825 

U 007A, 081O,0O38,B580,3D28,00O0,0B4C 
U OBAC. 0058.0D38.7580,FA90,0084,6B54 

U 0854, 0O03,0O3C,0180.FA90,0050.O8C9 

U 0856, 0E03,0O3C,0180,F8O0,00DC,AB4D 
U 0857, 081F,2000,0980.F800,1404,2B56 
U 084D, 0021,003C,01CO.F800,4000,019C 



19279 
19280 

19281 342: 

19282 L2P.INIT: 



; ENTER HERE FROM C-FORK WITH LONGWORD IN CLENGTH IN D 



19283 
19284 
19285 
19286 

19287 =10*0*** 

19288 ALU Q,RCCT53 ALU. 

19289 DK/HI6HT,CAL[;.J/ASPC 

192 90 ; 

19291 =11*0*** 

19292 L2P0C: ALUJJ.AND.KC.FFF03. 

19293 NftZ ALU.V&C O.RCR33 ALU. 

19294 CALCJ/BCD.FPD.O 
19295 

19296 

19298 =11*1***" " ~~ """ "" "~ 

19299 IDCFPDAJ.D, 

19300 D_RCCT53,J/L2P0 

19301 =;END ; 

SC KC.203, 
ALO KC.203, 
RCR23 ALU.RIGHT, 
BEN/SlGNS 



EVALUATE SPECIFIERS AND INITIALIZE REGISTERS. SET FPD. 



STATE.KCZER03. 

ALU D . 0XTCWORD3 ,D„ALU, 

RCCT13.ALU 



19302 L2P0: 
19303 
19304 
19305 

19306 =;END 

19307 =100 
19308 
19309 
19310 
19311 

19312 =10 

19313 L2P1: 
19314 
19315 
19316 
19317 



BRANCH ON D<31> AND D NE 

ALUj)(A),RCR23_ALU, 

NfcZ ALU. VIC J), 

J/L2PL2 

;11f 

SC SC-SHF.VAL, 

ALO 0(A) .NfcZ.ALU. V8C_0, 

D DAI. NORM, 

J7L2P2 __ __ 

19318 L2P10: D JM>." 

19319 STATE STATE.OR.KC.23, 

19320 J/L2PT 

19321 =;END ; 

19322 L2P2: ALU D,Q ALU. LEFT, 

19323 INTRPT.5TR0BE, 

19324 J/L2P8 



INITIALIZE STATE-REGISTER 
ISOLATE DST-LENGTH 
SAVE IT IN RCCT13 



SAVE LONGUORD IN RC5 

DIVIDE LENGTH BY 2, EVALUATE DST-ADDR 

REENTER HERE AFTER A FAULT 
CLOCK EXCESS LENGTH-BITS 
CLEAR R3 (LOW WORD ONLY) 
CALL SUBROUTINE TO SET 
FPD-FLAG AND GENERATE FPD-ADDR. 
ALSO TEST FOR ILLEGAL LENGTH 



WRITE FAULT-ADDRESS (33) IN ID-REG. 
GET ORIGINAL LONGWORD 

LOAD INITIAL BIT-COUNT (32.) 
USE 10 TO INITIALIZE DST-STRING 
LEAVING LOW NIBBLE FOR SIGN 
TEST SIGN-BIT AND D-REGISTER 



LONGWORD IS ZERO 

SET Z-6IT 

FINISHED , NO CALCULATIONS NECESSARY 

UPDATE BIT-COUNT (LEFT ADJUSTED) 
SET Z-BIT 
NORMALIZE D 
ENTER MAIN LOOP 

NEGATE LONGWORD 

SET MINUS BIT OF STATE 

JOIN POSITIVE PATH 

GET 2. BIT OF LONGWORD 
STROBE FOR INTERRUPTS 
START LOOPING 



i_. 



...j 



ZZ-ESOAA-124.0 ; DECMAL.MK C600.1204D 
P1U124.MCR 600.1204D MICR02 1L(03) 
DECMAL.MIC [600,1204;] Decimal string 



U 0198. 0810,0014, 0180,F800,0000,OB55 
U 0199. 0810,0014.0180.F800,0000,0855 



H 8 
Decimal string 14-Jan~82 Fiche 3 Frame H8 Sequence 510 
14~Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01, FPLA 0E, WCS124 Page 
: CVTLP 



509 



U 019C, 083F,OE14,05DO,FA10,0094.A866 
U 019D, OC1B,0014,05DO,FA98,0050,084E 
U 084E, 0001,203C,01EO,F988,0000,019C 



U 0866, 001C,1414,D1CO,3D38,0000,08C9 
U 0867. 0000.003C,4180,r800,1404.6033 



19326 
19327 
19328 
19329 
19330 
19331 
19332 
19333 
19334 
19335 
19336 
19337 
19338 
19339 
19340 
19341 
19342 
19343 
19344 
19345 
19346 
19347 
19348 
19349 
19350 
19351 
19352 
19353 
i9354 
19355 
19356 
19357 
19358 
19359 
19360 
19361 
19362 



.•LOOP WHICH ADDS DECIMAL STRING IN R2(AND R3 IF 

.-NECESSARY) TO ITSELF, AND ADDS IN HIGH ORDER BIT OF LONGUORD IN T4. 

.-ENTER LOOP AT L2PB, WITH LONGUORD 1H Q. 

.AND BIT-COUNT OF LONGUORD IN SC. 



=10*0 
L2PL: 



L2P8: 



.BRANCH ON PSL Z AND C <V=0) 
;10*0~ 



=;END 

=110 
L2PL1 : 



ALU LA+LCD.ALU, 

J/L2PL5 

;10*1- 

ALU LA+LCD.ALU, 

J/L2PL5 

;11*( 

ALU 0*Q,LAB.RCR23,LONG, 

D.ACU.LEFT, 

Q DEC. CON, 

CDc.UBCC, 

SC SC-KC.13, 

BENV INTERRUPT, 

J/L2PL1 

;11*1- 

ALU.O+KC . 1 3 .RCR33.ALU, 

D.Q , Q.DEC . CON,NtZ.ALU. VfcC.O 

ALU.0,RCCT73_ALU, 
QJ>,J/L2PB 



BRANCH ON INTERRUPT-PENDING 

no 

IDCT43 D, 
Q LA+Q, 
LC RCCT73, 
SC?, 
J/L2PL2 

STATE.KC.80D.J/SAVE.BCD 



ADD 6*S TO DATA 

DOUBLE PRECISION, NO CARRY 

ADD 6'S TO DATA 
DOUBLE PREC. , CARRY 

SHIFT DATA LEFT AND STORE IT 
IN D-REGISTER 
LOAD ALL 6'S IN Q 
CLOCK HIGH ORDER BIT 
DECREMENT COUNT 
TEST FOR INTERRUPT 



START 2. HALF OF STRING 

CLEAR Z-6IT TO SIGNAL DOUBLE PREC. 

STORE ALL 6*S IN RCCT73 
RESTORE DATA TO Q, REJOIN LOOP 



SAVE LONGUORD 

ADD 6'S 

GET DECIMAL CONSTANT READ> 

TEST COUNT 



SET INTERRUPT-BIT, SAVE CONTEXT 



U 08C9, 0003.003C,0180,F908,0050,OB5D 



ZZ-ESOAA-124.0 ; DECMAL.MIC C.600,12043 



. P1U124.MCR 600.12043 
; DECMAL.MIC [600, 12043 



MICR02 1L(03) 
Decimal string 



Decimal string 

H-Jan-82 15:30:16 



U 08CB, 080D.3B14,65D0.F898, 0070,0436 



U (K36. 0O1D,1A0O,D1F0.2E90,40O0,0198 
U 043E, 0019,2000,65CO,F800,0000,0436 

U 0855, 081C,202C,01DO,F800,0000,085C 

U 085C, 001D,0000,D1FO,2E98,0000,019C 



19363 
19364 
19365 
19366 
19367 
19368 
19369 
19370 
19371 
19372 
19373 
19374 
19375 
19376 
19377 
19378 
19379 
19380 
19381 
19382 
19383 
19384 
19385 
19386 
19387 
19388 
19389 
19390 
19391 
19392 
19393 
19394 
19395 
19396 
19397 



CVTLP 



I 8 

14-Jan~82 Fiche 3 Frame 18 Sequence 511 

VAX1 1/780 Microcode : PCS 01, FPLA 0E, WCS124 Page 



510 



=01 
L2PL2: 



CONTINUATION Of BASIC LOOP, CONVERTING A LONGUORD 
TO A PACKED DECIMAL STRING. 



=;END 
=011* 



BRANCH ON SC GT (SC<9:8>=0) 
01 

ALU.0(A),LC.RCCT13, 

NfcZ ALU.VfcC.O. 

J/L2P.WRITE 

6 CKLB.LA RACR33, 

Q DEC. CON: 

3ET.CC<LONG), 

KC.103, 

ALU.N?. 

J/L2PL3 



GET DST-LENGTH 

CLEAR N-6IT, SET 2-BIT 

FINISHED, WRITE DST-STRING 

ADD DATA TO ITSELF 

DECIMAL CONSTANT FOR ADJUSTMENT 

CLOCK PSL-CARRY-BIT 

CONSTANT FOR NEXT INSTRUCTION 

TEST HIGH BIT OF BINARY SRC 



BRANCH ON ALU N-BIT (C31 IS CLEAR) 

.011* 

L2PL3: RCR23 D-Q,LONG, 

Q IDCT43, 

p5l CC 

INTRPT I STROBE, 

J/L2PL 

;111* 
L2PL30: Q Q-KC.103. 

J7L2PL3 



DECIMAL ADJUST AND STORE SUM 
RETRIEVE LONGUORD 
TEST PSL Z AND C-BITS 
STROBE FOR INTERRUPTS 



=;END 
L2PL5: 



ADD IN NEW BIT 
AFTER SIGN-NIBBLE 



.•ROUTINE TO DOUBLE SECOND HALF OF STRING 

D_LA+D+PSL. C.Q.DEC. CON ; ADD STRING TO ITSELF WITH CARRY 



RCR33 D-Q.LONG, 
Q IDCT43, 
J7L2PB 



DECIMAL ADJUST, STORE RESULT 
GET SOURCE LONGUORD READY 
LOOP BACK 



J 



ZZ-ESOAA-124.0 ; DECMAL.MIC C600,12043 
; P1W124.MCR 600.12043 MICR02 1L(03) 
; DECMAL.MIC C600.12043 Decimal string 



U 0B5D, 0013,0008,CDC0,FAF8.1414,4B64 
U 0B64, 080O,003C, 01 80,FA1 0,0000,0865 
U 0B65, OOOO,OO3C,01CO,FA78,0O10,029C 



Decimal string 

H-Jan-82 15:30:16 



CVTLP 



J 8 
14-Jan-82 Fiche 3 Frame J8 Seguence 512 

VAX1 1/780 Microcode : PCS 01, FPU 0E, WCS124 Page 



511 



U 029C. 0079,2D15,01CO,F888.0092,OE59 

U 02BC, 0F03,0D3C,C1F0,2E80,0030,01B4 
U 02FC, 0018,0000,1 180, FA88,0000,OB6B 

U 0868, OO0C,0Q38,11C0,F898,14O4,2B6C 
U 0B6C, 0019,2014,01CO,FAF8,0000,086E 

U 086E, 0818, 0034, C180,FA90, 0000,0873 

U 0873, 0003,003C, 01 80,FA98, 0000,0865 

U 0184, 0000,1 73C,C580,3COO,0000,088D 



U 0186, 0000. 003C, 31 80, F 800, 1404, 21 84 



19398 

19399 

19400 

19401 

19402 

19403 

19404 

19405 

19406 

19407 

19408 

19409 

19410 

19411 

1941? 

19*' 

194.. 

19415 

19416 

19417 

19418 

19419 

19420 

19421 

19422 

19423 

19424 

19425 

19426 

19427 

19428 

19429 

19430 

19431 

19432 

19433 

19434 

19435 

19436 

19437 

19438 

19439 

19440 

19441 

19442 

19443 

19444 

19445 

19446 

19447 

19448 

19449 

19450 



L2P. WRITE: 

.•ROUTINE WHICH WRITES DATA IN RCR23 AND RCR33 INTO DST-STRING. 



STATE STATE. ANDNOT.KC.F03, 
ALUJM.C-1 ,RCR153_ALU, 
CLK.UBCCQ.ALU 



L2P.W0: D.RCR23 
L2P.W1: Q_RCP" 



=00****" 

L2P -•" 



,t 



LK.UBCCLONG 



L2P.F2: 



cA : RACR13, 
ALO Q+KC.83, 
SHF7ALU.DT,LONG, 
SC ALU,QK/SHF, 
CLR.UBCC, 
SIGNS?, 
CALL,J/WRITE1 
; 01 ***** 

ALU 0(A) ,RCR03_ALU, 
N Alfc.Z TST. 
D~0,0 IDITOJ, 
Sl6NS7,J/L2P.F3 



=71***** 

=;END 



RCR13j.A-KC.43,LONG 

* » » » m m M » M 1 ■! ■ T ■ ■ ■ M M ■ ■ 

Q,L8, 

U RACR33, 

S TATE.STATE .0R.KC.43 

R CR153_Q»KC.83,LONG ,Q_ALU 

& LA.AND.KC.FFFF3, 
R tR23_A LU,LONG 

RCR33.0.L0NG, 
J/L2P.W1 



=10* 



.BRANCH ON D NE (D<31>=0) 

L2P.F3: IDCT13 D,STATE3-0?, 
J/FJNIT 



CLEAR UPPER BITS OF STATE 
GET DST-LENGTH 



GET FIRST LONGWORD 
GET LENGTH 



GET DST-ADDRESS 
INCREMENT DST-LENGTH 

STORE IN SC TO MAKE MASK 

TEST FOR END OF STRING AND ZERO 
GET ADDRESS, WRITE DATA 

END OF DST-STRING, CLEAR RO 
CLEAR N-6IT 
GET DST-LENGTH 
TEST FOR OVERFLOW 



UPDATE ADDRESS 

GET LENGTH 
GET NEXT DATA 
CLEAR 1. TIME FUG 

UPDATE LENGTH 

GET NEW DATA 

NO MORE DATA AFTER THIS WRITE 



CLEAR T1, TEST SIGN-BIT, 
JOIN FINISH-ROUTINE 



*********************************************** 

* Patch no. 002, PCS 0184 trapped to WCS 1141 * 

*********************************************** 



=;END ; 



;1 1* 

S7ATE S TATE. OR. KC. 403, 
J/L2PTF3 



SET OVERFLOW 8IT 



ZZ-ESOAA-124.0 ; DECMAL.M1C [600.12043 
P1W124.MCR 600.1 2043 MICR02 1L<03) 
DECMAL.MIC C600. 12043 Decimal string 



Decimal string 

14-Jan-82 15:30:16 



CVTPL 



K 8 
14-Jan-82 Fiche 3 Frame K8 Sequence 513 

VAX1 1/780 Microcode : PCS 01, FPLA OE, WCS124 Page 



512 



19451 
19452 
19453 
19454 
19455 
19456 
19457 
19458 
19459 
19460 
19461 
19462 
19463 
19464 
19465 
19466 
19467 
19468 
19469 
19470 
19471 
19472 
19473 
19474 
19475 
19476 
19477 
19478 
19479 
19480 
19481 
19482 
19483 
19*84 
19485 
19*36 
19487 
19488 
19489 
19490 
19491 
19492 
19493 
19494 
19495 



TOC 



Decimal string 



: CVTPL* 



CONVERT PACKED STRING TO L0N6U0RD 

ROUTINE WHICH CONVERTS A PACKED STRING INTO A LONGUORD. 

ALGORITHM: 

1. FIRST THE LAST SPECIFIER IS EVALUATED, AND 

THE LENGTH IS TESTED, AND FIRST PART DONE FLAG IS SET. 
THE SS-FLIP-FLOP IS USED TO REMEMBER WHETHER THE 
DESTINATION IS TO BE STORED IN MEMORY OR A REGISTER. 

2. WE PROCEED TO LOOK FOR A LEADING NON-ZERO DIGIT 

IN THE SRC-STRING, LOOPING ON LENGTH AND NON-ZERO DATA ("P2L") 

3. ONCE WE FIND A NON-ZERO BYTE, WE ENTER THE MAIN LOOP. 
THE PROCESS WE USE, IS A STEP BY STEP EVALUATION OF THE 
EXPRESSION: 

S= (. . . <ACN>10+ACN-1 3)*100*A[N-23*10+ACN-33> *100*. . .+ 
♦AC43*10+AC3J)*10O+AC23*1O+AC13)*10+AC03 

WHERE ACN3 AC03 ARE THE DIGITS IN THE DECIMAL STRING. 

ON EACH PASS THROUGH THE LOOP, WE READ TWO MORE DIGITS FROM 

THE SRC-STRING, MULTIPLY ONE OF THEM BY 10. (BINARY), 

ADD THE OTHER DIGIT IN, AND ADD THE RESULT TO THE RUNNING SUM. 

THE SUM IS THEN MULTIPLIED BY ONE HUNDRED, AS THE 

NEXT TWO DIGITS ARE READ IN C , P2LL1 ,, >. 

4. FINALLY WE REACH THE SIGN-BYTE ("P2LS"), THE LAST DIGIT 
IS ADDED IN (•P2LS1"), WE SET THE CONDITION CODES, 
AND LOAD THE GENERAL REGISTERS. 

SC CONTAINS SRC-LENGTH, 

R1 GETS SRC-ADDRESS 

ORIGINAL SRC-LENGTH IS SAVED IN RCO 

SRC-ADDRESS IS SAVED IN TO 

DST-ADDSRESS IS SAVED IN T1 

SS-FLIP-FLOP DETERMINES WHETHER DST IS IN MEMORY OR GEN. REG. 

STATE-REGISTER: 



INTRPT ;OVFLOW 



PACKED 
DECIML 
SIGN 



ZZ-ESOAA-124.0 ; DECMAL.MIC C600, 12043 Decimal strirv 

P1W124.MCR 600,12043 MICR02 1L(03) 14-Jan-82 



U 0340, 0018,6024, 8DB7,F988,1450,60B0 



; DECMAl!mk C606,12043 



Decimal string 



CVTPL 



L 8 
a 14-Jan-82 Fiche 3 Frame L8 Seguence 514 
15:30:16 VAX1 1/780 Microcode : PCS 01, FPLA OE, WCS1Z4 Page 513 



U 0080, 0003,A03D,C183,3D80,1482,A47E 

U 00F0, 0001,1A3D,C580,3E98,0000,OOF9 
U 00F1, 0800,0038,0180,F800,1COO,0874 

U 0OF8, 0001.203C,8580,3E88,0300,090E 
U 0B74, 0018,0038,4982,F988,0000,OOFO 



;THE FIRST ROUTINE READS LEADING ZERO'S IN THE SRC-STRING, 
;AND TESTS FOR OVERFLOW BY COMPARING NUMBER OF 
.NON-ZERO BYTES WITH 6, AND IF THEY ARE EQUAL, COMPARING 
;THE LEADING BYTE WITH 02. 

.-ENTER HERE FROM C-FORK WITH SRC-LENGTH IN Q, SRC-ADDRESS IN D 



ALUQ.OXTCWORD3.ANDNOT.KC.1F3, 

RCCT13 ALU, 

NMALO.VftC 0, 

OK/RI GHT , SGR/CLR . SD+SS , 

STATE.FE 



19496 

19497 

19498 

19499 

19500 

19501 

19502 

19503 

19504 340: 

19505 

19506 

19507 

19508 

19509 

19510 =01*0**0 

19511 ALU Q.0XTCBYTE3, 

19512 SC.AlU, 

19513 RCTJT03 ALU, 

19514 SGN/NOT. SD, 

19515 STATE STATE-FE, 

19516 IDCT03_D,CALL,J/ASPC 
19517 

19518 =11*0**0 

19519 P2L00: RCR33 D,IDCT13 D, 

19520 PSL.Ct?,CALL,j7BCD.FPD 
19521 
19522 D RL0G,J/P2L02 

19523 

19525 =11*1**0' 

19526 P2L0: IDCFPDA3 D, 

19527 ALU Q,VAR/L0AD,R[R13 ALU, 

19528 FE SCJ/P2L1 

19529 =;END ; 

19530 P2L02: ALU KC.FF3. 

19531 RCC713 ALU, SGN/SS. FROM. SD, 

19532 J/P2L00 

1 9533 



ISOLATE HIGH BITS OF LENGTH 

CLEAR RC1 

CLOCK IT 

DIVIDE LENGTH BY 2 



ISOLATE SRC-LENGTH 

LOAD SRC-LENGTH/2 IN SC 

SAVE IT IN RCO AS WELL 

SET SD 

CLEAR STATE-REGISTER 

SAVE SRC-ADDRESS IN IDCT03 



SAVE ADDRESS IN R3 AND T1 

SET FPD, TEST FOR LEGAL LENGTH 

GET REGISTER NUMBER OFF RLOG 
(BUT IT IS IN UPPER BITS, DUMMY!) 



SAVE MEMORY-FAULT ADDRESS (33) 
LOAD SRC-ADDRESS 



REMEMBER ACROSS FAULTS 
SET REGISTER FLAG 



U 0B85, 089B,8F34,6D80,F910,0081,08D2 



U 0887, 0018,1814,0580,FA88,0200,090E 



ZZ-ESOAA-124.0 ; DEl?<AL.MIC C600.12043 



P1W124.MCR 600-12043 
DECMAL.MIC C600. 12043 



MICR02 1U03) 
Decimal string 



Decimal string 

14-Jan-82 15:30:16 



CVTPL 



H 8 
lA-Jan-82 Fiche 3 Frame M8 Seguence 515 

VAX1 1/780 Microcode : PCS 01. FPLA 0E, WCS124 Page 



514 



U 090E, 0098,9438,05F8,4310,0084,AB85 
U 090F, 0000,003C,1180,FA88,0014,AB75 
U 0875. 0019,9200,OD80,F800,0010.0913 

U 0913, 0000,003C,3180,F800,1404,2918 

U 0917, 009B,9B54,6DC0,F800,0000,0175 



U 091B, 0098,8034, 6DC0,F800,0000, 01 7D 



U 0175, 081F,8000,31BO,F9(0,1404,2B7C 



U 017D, 081F,8000,01BO,F910,0000,067C 



19534 
19535 
19536 
19537 
19538 
19539 
19540 
19541 
19542 
19543 
19544 
19545 
19546 
19547 
19548 
19549 
19550 
19551 
19552 
S9553 
19554 
19555 
19556 
19557 
19558 
19559 
19560 
19561 
19562 
19563 
19564 
19565 
19566 
19567 
19568 
19569 
19570 
19571 
19572 
19573 
19574 
19575 
19576 
19577 
19578 
19579 
19580 
19581 
19582 
19583 
19584 
19585 
19586 
19587 



=101 
P2L: 



=;END 
=1110 

P2L1: 



=;END 
Pk2r 



=0011 



.•BRANCH ON SC 6T 

;101- 

SCFE, 

aid d.oxtcbyte:.and.kc. fffo3, 
d aluright2, 
lc_rcct23,bcds6n?, 

J/P2LS 

;11V 

ALU LA«XC .13, VAK/LOAD , 

RCRT3 ALU, L0NG.D.B0? , 

J/P2LT 



BRANCH ON LOU BYTE OF 

1111 

DCBVTE3 CACHE. 
SC SC-Kl.13, 
AL0.KC.13, 

LAB R1MCCT23_ALU.RI6HT2, 
0,SC?»J/P2L 

EALU SC-KC.43,CLK.UBCC. 
ALU.CA ,RCR1 3.ALU, J/P2L2 



ALU D-KC.33.CLK.UBCC8YTE, 
EALO? 



.'BRAN CH ON EALU N- AN D Z-BIT 

STATE_STATE.OR.KC. 403 , J/P2LL 

ALU D.OXTCBYTE3.AND.KC.FFF03, 
Q ACU.RIGHT2, 
ALU.N7.J/P2L3 



6ET ORIGINAL LENGTH 

STRIP OFF SIGN-NIBBLE 

DIVIDE BY 4 

SET SUM.TEST SIGN 

SIGN-BYTE, SKIP TO SIGN-ROUTINE. 

SRC-LENGTH IS >=0 

LOAD SRC-ADDRESS 

TEST SOURCE-DATA 

LOAD SRC-ADDRESS, TEST FOR NON-ZERO D 



LOOK FOR LEADING NON-ZERO BYTE 
READ NEXT BYTE 
UPDATE SRC-LENGTH 

LOAD ADDRESS IN LA AND CLEAR SUM 
TEST SRC-LENGTH 
D HAS NON-ZERO BYTE 
CLOCK OVERFLOW LIMIT 
ADJUST SRC-ADDRESS 



TEST LENGTH OF NONZERO STRING 



SET OVERFLOW-filT 

ON THE BOUNDARY MAYBE OVERFLOW 

ISOLATE HIGH NIBBLE 

SHIFTED RIGHT TWICE 

TEST HIGH DIGIT 



**** ******************************************* 

* Patch no. 013, PCS 0917 trapped to WCS 114D * 

*********************************************** 



P2LL: 



=;END 
=01*1 

P2L3: 



P2LL0: 
=;END 



ALU D.OXTCBYTE3.AND.KC.FFF03, 

Q ALURIGHT2, 

J7P2LLQ 



BRANCH ON ALU N-BIT (IR<0>=0> 

STATE_STATE.OR.KC. 403, 

ALU D.0XTCBYTE3-0, 

D ALUQK/RIGHT,LC_RCCT23, 

J7P2LL2 

• -\ i *-j __—_——_..—.____ _— . 

ALU D.0XTCBYTE3-Q, 

D Aru,QK/RIGHT,LC_RCCT23, 

J7P2LL2 



NO OVERFLOW, START MAIN LOOP 
ISOLATE HIGH NIBBLE 
SHIFTED RIGHT TWICE 



SET OVERFLOW-BIT OF STATE 

SUBTRACT 4*HIGH NIBBLE 

STORE RESULT IN D, GET SUM IN LC 



SUBTRACT 4*HIGH NIBBLE 

STORE RESULT IN D, GET SUM IN LC 



U 0B7C, 0810,0000,0580. F888,0094,AB7D 



U 0B7D. 0871.0014,01C0,F990,0000.0883 



ZZ-ES0AA-124.0 ; DECMAL.MIC C600.12043 



. P1W124.MCR 600-12043 
; DECMAL.MIC C600. 12043 



MICR02 1L(03) 
Decimal string 



N 8 
Dec'nal string 14-Jan-82 Fiche 3 Frame N8 Sequence 516 

14-Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01, FPLA OE, WCS124 Page 
: CVTPL 



515 



U 0883, 0518,1 214,0580, FA88,4200. 0927 



U 0927, 08BD,OE14.0180,F910,0000.0896 
J 092F. 0021,A03C,01B0.4190,0000.0O85 

U 08%, 0011,8014,01CO,4190,0000,0918 
U 0897, 0000,003C,4180,F800, 1404,2033 

U 08D2, 0211,2014,01CO,F800,0000,0884 
U 08D3. 021 1.20K,09C0,F800,1404, 2884 



19588 
19589 
19590 
19591 
19592 
19593 
19594 
19595 
19596 
19597 
19598 
19599 
19600 
19601 
19602 
19603 
19604 
19605 
19606 
19607 
19608 
19609 
19610 
19611 
19612 
19613 
19614 
19615 
19616 
19617 
19618 
19619 
19620 
19621 
19622 
19623 
19624 
19625 
19626 
19627 
19628 
19629 
19630 
19631 
196^2 
19633 
19634 
19635 
19636 
19637 
19638 
19639 
19640 



CONTINUATION OF 

;IShIN LOOP FOR CONVERTING PACKED STRING TO LONGUORD. 

;RCCT23 HAS CURRENT SUM 

;SC HAS SRC-LENGTH 



P2LL2: 



alu d-q ,d alu.la racr1 3 , 
s c.Schc£.T3,cuc.0bcc 

alu d+lcshf/alu.dt, 

qk/shf.dk/shf, 

rcct23.alu.left2 



SUBTRACT 2*HIGH NIBBLE, GET ADDRESS 
UPDATE SRC-LENGTH 

ADD INTO SUM 

STORE RESULT IN R,D,AND RCCT23 

SHIFT LEFT TWICF 



*********************************** j*********** 

* Patch no. 056, PCS 087D trapped to WCS 1182 * 

*********************************************** 



=0111 



=;END 
=110 

P2LL1: 



=;END 

=i0 

P2LS: 



INTRPT. STROBE. 

alu la-hcc.13. 
rcrt3.alu.l0ng, 
vak/lBad, 
dk/left.ben/ealu 



BRANCH ON EALU N-SIT 

0111- 
ALU D+Q, 
D ALULEFT3, 
LZ RCCT23. 

BEN/INTERRUPT , J/P2LL1 
;1111« 

DCBYTE3 CACHE .ALU.Q. 
RCCT23 XLU.LEFT, 
Q K/RIGflT,J/P2L 

BRANCH ON INTERRUPT REQUEST 

IK 
Q D+LC.RCCT23.ALU, 
DtBYTE3_CACHE.J/P2LL 

STATE STATE.OR.KC.803, 
J/SAVE.BCD 



STROBE INTERRUPTS 

INCREMENT SRC-ADDRESS 

UPDATE IT 

LOAD SRC -ADDRESS 

TEST SRC-LENGTH FOR SIGN-BYTE 



SHIFT LEFT 3 TIMES 

ADD AND MULTIPLY RESULT BY 8 

GET PARTIAL SUM 

TEST FOR PENDING INTERRUPTS 

READ SIGN-BYTE 
STORE SUM IN RCCT23 
SHIFT THE DATA 



SAVE SUM*100 IN RCCT23 
GET NEXT DATA 

SET INTERRUPT-BIT Or STATE 
SAVE CONTEXT OF INSTRUCTION 



ENTER HERE AFTER READING SIGN-BYTE 
BRANCH ON DECIMAL SIGN 



=;END 



ALL IQ+LC.Q ALU, 
DK/RIGHT2.3/P2LS1 

ALU Q+LCQ ALU, ; 

STATE STATE. OR. KC. 23, 
DK/RIGHT2,J/P2LS1 



SET PLUS-BIT, GET SUM*10 



GENERATE SUM*10 

SET MINUS-BIT 

SHIFT LAST NIBBLE RIGHT 



J 0884. 0810,0014, C5F0,2C00,0O0O,0B86 
U 0886, 0001. > 7 3C,05F8,F800,0296,66F8 



B 9 



ZZ-ESOAA-124.0 ; DECMAL.MIC C600.12043 Decimal string H-Jan-82 Fiche 3 Frame B9 Seguence 517 

; P1W124.MCR 600-12043 MICR02 11(03) 14-Jan~82 15:30:16 VAX1 1/780 Microcode : PCS 01, FPLA 0E, WCS124 Page 

; DECMAL.MIC [600,12043 Decimal string : CVTPL 



516 



U 06F8. 001D,0020,01CO,F800,0000,088B 

U 06FA, 081 F ,2000,0380, F800,0000,06F8 
U 0B8B, 0003,OD3C,C1FO,2E80,0000,08C3 

U 0BC3. 0003,003C, 0180,FA90,0000,088C 

U C8C7, 0003,003C, 3180,FA90,1404,2B8C 
U 088C, 0001,203C,31FO,2E88,0000,088E 
U 0B8E, 0003, 123C,0180,FA98, 0000, 08E2 



19641 P2LS1: ALUJ>+Q,D_ALU, 

19642 Q I0CT1J 
!9643 ;= 

19644 EALUKL*.13,CLK.UBCC, 

19645 ALUji.VAK/LOAD.SC.ALU, 

19646 Q 0TSTATE3-0? 
19647 

19648 ; *********************************************** 

19649 ; * Patch no. 014, PCS 0886 trapped to UCS 114E * 

19650 ; *********************************************** 
19651 

19652 =0* ;BRANCH ON SIGN-BIT 

19653 ;0* 

19654 P2LF2: ALU D.X0R.Q,Q ALU, 

19655 J/P2LF3 

19656 ;1* 

19657 ALU 0-D,D ALU, 

19658 QK/RlGHT,5l/MUL-, 

19659 J/P2LF2 

19660 =;END 



CLEAR EALU CC 
LOAD DST-ADDRESS 
TEST SIGN-BIT 



19661 P2LF3: ALU 0(A), RCR03 ALU, 

19662 Q I5CT03,Q31? 
19663 

19664 =011 
19665 
19666 
19667 
19668 
19669 
19670 
19671 

19672 =;END 

19673 P2LF5: ALU Q,RCR13 ALU, 
*""" Q I5CCESD 



BRANCH ON Q<31> 

011- 
ALU 0(A),RCR23.ALU. 
J/P2LF5 
;111- 

STATE STATE.0R.KC.403, 
ALU 0TA),RCR2D_ALU, 
J/P2LF5 



19674 
19675 
19676 
19677 
19678 



ALU 0(A),RCR33 ALU, 
FAL0?,J/P2LF7 



XOR THE HIGH BITS 
TO TEST FOR OVERFLOW 

NEGATE LONGWORD 
SET HIGH BIT OF Q 
WOOPS-FORGOT -0 CASE!! 



CLEAR RO 

GET SRC-ADDRESS, TEST Q 



CLEAR R2 



SET OVERFLOW-BIT OF STATE 
CLEAR R2 



LOAD SRC-ADDRESS 



CLEAR RO 

TEST FOR REGISTER OR MEMORY 



ZZ-ESOM-124.0 ; DECMAL.MIC C600.12043 
; P1W~24.MCR 600-12043 MICR02 1L(03) 

; DECMAL.MIC C600. 12043 Decimal string 



Decimal string 14-Jan-82 

14-Jan-82 15:30:16 
: CVTPL 



C 9 

Fiche 
VAX1 1/780 Microcode 



U 08E2, 0001,003C,6180,3000,OOD4,68E3 
U 08E3, 0O01,163C,O180,F8E8,2050,0130 

U 0130, 2O14,OO38,O180,F801,420O,00AB 
U 0134, 0819,2030,6580,F80O,0000,0B94 

U 0B94, 0000, 003C, 3180, 3C0O,O02O, 0130 



19679 =10 ;8AANCH ON SIGN SRC 

19680 ;10— 

19681 P2LF7: CACHEJ>L10NG3. 

19682 ALU D,N*Z_ALU.VfeC_0, 

19683 SC RC.F3 " 
19684 

19685 ;11« 

19686 ALUJ>,R(SC> ALU,NftZ ALU.V6CJ), 

19687 C LR.FPD,STATE7-4?,j7P2 LF8 

19689 =0** -BRANCH ON OVERFLOW-BIT 

19690 ;0**- 

19691 P2LF8: FLUSH. IB,PCfcVA_PC, 
196?2 J/I8.FILL 

19693 ;1»*- 

19694 ALU Q.OR.KC.103,D ALU 

19695 =;END ; " 

19696 SET.V, 

19697 IDCCESD D,J/P2LF8 

19698 ;- 



3 Frame C9 Seguence 518 

: PCS 01, FPLA OE, WCS124 Page 



WRITE DST-LONGWORD 

HAKE NEXT STATE HARMLESS 
NEEi/ NEXT STATE TO CLEAR FPD 

LOAD IN GEN- REGISTER, CLOCK PSL-CC 
RESET FPD-BIT OF PSL, TEST OVERFLOW 



GET READY FOR NEXT INSTRUCTION 



INTEGER OVERFLOW, LOAD TRAP-VALUE 

SET y-BU 

WRITE CONTROL-REGISTER 



517 



ZZ-ESOAA-124.0 ; DECMAL.MIC C600,12043 
PI W1 24. NCR 600-1204D MICR02 1L(03) 
DECMAL.MIC C60OJ20A3 Decimal string 



Decimal string 

14-Jan-82 15:30:16 



: CVTPS 



D 9 
H-Jan-82 Fiche 
VAX11/780 Microcodt 



3 Frame D9 Sequence 519 

: PCS 01, FPLA OE, WCS124 Page 



518 



19699 
19700 
19701 
19702 
19703 
19704 
19705 
19706 
19707 
19708 
19709 
19710 
19711 
19712 
19713 
19714 
19715 
19716 
19717 
19718 
19719 
19720 
19721 
19722 
19723 
19724 
19725 
19726 
197?7 
19728 
19729 
19730 
19731 
19732 
19733 
19734 
19735 
19736 
19737 
19738 
19739 
19740 
19741 
19742 
19743 
19744 
19745 



,T0C 



Decimal string 



: CVTPS' 



CONVERT A PACKED STRING TO LEADING SEPARATE NUMERIC STRING 
ALGORITHM: j 

1. FIRST THE SPECIFIERS ARE EVALUATE!* AND REGISTERS INITIALIZED. 
SOME OF THIS COD!: IS SHARED WITH THATi OF CVTPT-INSTRUCTION. 
ROUTINE STAWTS AT "tVTPS.INIT". \ 

2. THE BASIC LOOP OF THE INSTRUCTION <'P2NL">, 

READS A PACKED BCD-BYTE FROM THE SOURCE STRING (STARTING AT THE 

TRAILING END), SPLITS IT INTO TWO ZONED BYTES, AND WRITES THE 

RESULTING WORD INTO THE DST-STRING. 2 

TWO SLIGHTLY DIFFERENT PATHS ARE TAKEN THROUGH THE LOOP, 

DEPENDING ON WHETHER THE WORD RESULTING 

FROM A PACKED BCD-BYTE IS WORD ALIGNED CP2NL1") OR NOT CP2N13"), 

3.AFTER REACHING THE END OF BOTH SRC AND DST-STRINGS, THE 
'T>2N. FIN' '-ROUTINE IS EXECUTED TO SET CONDITION-CODES AND 
CLEAN UP THE GENERAL REGISTERS. 

4. IN CASE OF INTERRUPTS OR MEMORY-FAULTS, THE INITIAL STATE 
OF THE OPERANDS ARE SAVED IN GENERAL REGISTERS, 
AND THE INSTRUCTION IS RESTARTED AT "P2T.I0O". 
STORAGE: 

RCCTOJ HAS SRC-LENGTH 

RCCT13 HAS DST-LENGTH-1 

RCCT23 HAS LEFT-OVER DIGIT 

RCCT3J HAS OVERFLOW DATA 

R1 HAS HIGH SRC-^DRESS 

•13 HAS HIGH DST-AyDRESS 

IDCTOJ HAS SRC-ADDRESS 

IDCT13 HAS DST-ADDRESS 

SRC-LENGTH AND DST-LENGTH ARE KEPT IN SC AND Ft 

INST.DEP. ALU FUNCTION IS "A-1" 

OPCODE IS 'W 

MNEMONIC IS "CVTPS" 

THE SEQUENCE OF OPERANDS IS: 

opccde srclen.rw, srcaddr.ab, dstlen.rw, dstaddr.ab 



STATE-REGISTER: 



IN1RPT ;OVFLOW ; 



ALIGN 



SIGN 



111 



U 04C5, 0043,603C,C1C7,3D80,0000,0895 



U 0B95, OC1D,0014,1980,FAF8,1404,60A7 



ZZ-ESOAA-124.0 ; DECMAL.MIC C600. 12043 



. P1W124.MCR 600-12043 
; DECMAL.MIC C600, 12043 



MICR02 1L(03) 
Decimal string 



E 9 
Decimal string 14-Jan-82 Fiche 3 Frame E9 Seguence 520 
14-Jan-82 15:30:16 VAX11/780 Microcode r PCS 01, FPLA OE, WCS124 
: CVTPS 



U 08EA, 0200,033C, 1 988, F800.1 604 ,66FC 



U 08EB, 0200,033C, 0988,F800,1 604, 26FC 



U 06FC, 0001 ,003C, 0180, F818,0010,6BF6 



U 06FE, 0899,0230. D188,F800,0010,68E6 



Page 519 



19746 
19747 
19748 
19749 
19750 
19751 
19752 
19753 
19754 
19755 
19756 
19757 
19758 
19759 
19760 
19761 
19762 
19763 
19764 
19765 
19766 
19767 
19768 
19769 
19770 
19771 
19772 
19773 
19774 
19775 
19776 
19777 
19778 
19779 
19780 
19781 
19782 
19783 



.-ENTER HERE FROM D-FORK WITH SRC-LENGTH IN Q, SRC-ADDRESS IN D 



4C5: 
CVTPS.INIT: 

ALU Q.0XTCW0RD3. 

RCCT03.ALU.RIGHT. 

ALU.RI6HT.IDCT03.D, 

SGN/CLR.SD+SS 



STATE JCCZER03, 
ALUJ)+Q,RCR153 ALU, 
D Q.J/P2T.I0 



=10 
P2S2: 



ISOLAfE SRC-LENGTH 

SAVE IT IN RC 

SAVE SRC-ADDRESS 

CLEAR SS FOR LATER BRANCHING 

INITIALIZE STATE-REGISTER 
GENERATE HIGH SRC-ADDRESS 
JOIN PACKED TO TRAILING ROUTINE 



ENTER HERE FROM CVTPT-INITIALIZATION-ROUTINE, 
UPPER NIBBLE OF SIGN-BYTE IN D AND 0. 
LA HAS DST-ADDRESS 



=;END 

=0* 

r:S3: 



=;END 



BRANCH ON SIGN-NIBBLE 



STATE.KCZER03. 
VA„LA, 
QK7LEFT2.dk/RIGHT2, 
C31?,J/P2S3 

;11 

STATE STATE. OR.KC.23, 
QK/LEFT2,DK/RIGHT2, 
VA LA,C31? 



BRANCH ON ALU C31 
0* 

ALU D,LAB R18RCCT33 ALU, 
EAlOFE,CCK.UBCC, 
J/P2NL 

EALU FE,CLK.UBCC, 

alu d\qr.kl".c03,d alu.right2, 
ok/Ceft2,ror?,j/p2nh 



CLEAR STATE-REGISTER 
LOAD DST-ADDRESS 
SHIFT DATA RIGHT AND LEFT 
TEST DST-LENGTH 

SET MINUS-BIT 

SHIFT NIBBLE RIGHT AND LEFT 

LOAD DST-ADDRESS, TEST DST-LENGTH 



SAVE OVERFLOW IN RC3 
CLOCK SRC-LENGTH 



CLOCK SRC-LENGTH 

MAKE DATA ZONED WHILE SHIFTING 



ZZ-ESOAA-124.0 ; DECMAL.MIC C600.12043 
P1W124.MCR 600.12043 MICR02 1LC03) 
DECMAL.MIC £600,12043 Decimal string 



Decimal string 

H-Jan-82 15:30:16 



CVTPT 



F 9 
14-Jan-82 Fiche 3 Frame F° Seguence 521 

VAX! 1/780 Microcode : PCS 01, FPLA 0E, WCS124 Page 



520 



19784 
19785 
19786 
19787 
19788 
19789 
19790 
19791 
19792 
19793 
19794 
19795 
19796 
19797 
19798 
19799 
19800 
19801 
19802 
19803 
19804 
19805 
19806 
19807 
19808 
19809 
19810 
19811 
19812 
19813 
19814 
19815 
19816 
19817 
19818 
19819 
19820 
19821 
19822 
19823 
19824 
19825 
19826 
19827 
19828 
19829 
19830 
19831 
19832 
19833 



.TOC 



Decimal string 



CVTPT' 



CONVERT A PACKED STRING TO A TRAILING NUMERIC STRING 
ALGORITHM: 

1. FIRST THE SPECIFIERS ARE EVALUATED AND REGISTERS INITIALIZED. 
SOME OF THIS CODE IS SHARED WITH THAT OF CVTPS-INSTRUCTION. 
ROUTINE STARTS AT "CVTPT.INir'. 

ONE OF THE OPERANDS IS A TABLE-ADDRESS. THIS IS ADDED TO 
THE SIGN-BYTE OF THE SRC-STRING TO FORM A POINTER 
INTO A TABLE OF SIGN-BYTES, TO GET THE SIGN-BYTE FOR THE 
DST-STRINGC P2NI"). 

2. THE BASIC LOOP OF THE INSTRUCTION CT»2NL";, 

READS A PACKED BCD-BYTE FROM THE SOURCE STRING (STARTING AT THE 

TRAILING END), SPLITS IT INTO TWO ZONED BYTES, AND WRITES THE 

RESULTING WORD INTO THE DST-STRING. 

TWO SLIGHTLY DIFFERENT PATHS ARE TAKEN THROUGH THE LOOP, 

DEPENDING ON WHETHER THE WORD RESULTING 

FROM A PACKED BCD-BYTE IS WORD ALIGNED ('P2NLV) OR NOT CP2NL3"). 

3. AFTER REACHING THE END OF BOTH SRC AND DST-STRIN S, THE 
'P2N.FIN ,, -R0UTINE IS EXECUTED TO SET CONDITION-CODES AND 
CLEAN UP THE GENERAL REGISTERS. 

4. IN CASE OF INTERRUPTS OR MEMORY-FAULTS, THE INITIAL STATE 
OF THE OPERANDS ARE SAVED IN GENERAL REGISTERS, 
AND THE INSTRUCTION IS RESTARTED AT 'P2T.I00". 

STORAGE: 

R1=SRC-ADDRESS (HIGH END OF STRING) 

R3=DST-ADDRESS (HIGH) 

FE AND SC CONTAIN THE TWO LENGTHS, INITIALLY 

FE=SRC-LENGTH,SC=DST-LENGTH+1 

RCCT23 STORES LEFTOVER BYTES BETWEEN PASSES THROUGH LOOP. 

RCCT33 IS USED TO STORE OVERFLOW DATA. 

RCCT53 IS USED TO STORE TABLE-ADDRESS 

OP-CODE IS '24" 

INSTRUCTION DEPENDENT ALU-FUNCTION IS "A-l" 

INSTRUCTION FORMAT: 

opcode srclen.rw, srcaddr.ab, tbladdr.ab, dstlen.rw, dstaddr.ab 

STATE-REGISTER IS USED FOR STATUS. 
; STATE-REGISTER: 



;INTRPT 


;OVFLOW 





;ALIGN ; 






;SIGN 


• • • 




* 
# 
















# 







9 









ZZ-ESOAA-124.0 : DECMAL.MC C600.1204D Decimal string 14-Jan-82 Fiche 3 Frame 69 Seguen 

; P1U124.MCR 600.12043 MICR02 1L(03) H-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01. FPLA 0E. WCS124 



U 0442. 0043.603C,C1C7,3D80.0000.048C 

U 048C. OC1D.0015.0580.FAF8.1404.647E 
U 04EC. OC01.003C.0180.F9A8.0000.00A7 

U 00A7, OC19.0035.6D80.F998.0050.037E 
U 0087, 0019.2001 . 0580, F 800. 0082. 04 7E 



6 9 



ce 522 



• DECMALlMIC C600.12043 Decimal string 



U 00F7, 0019.6024,8D87,FA78,0030,0622 



CVTPT 

; ENTER HERE FROM D-FORK WITH SRC-LENGTH IN Q, SRC-ADDRESS IN D 



Page 521 



alu q.oxtl*w0rd3,rcct0j_alu.right 
q aluright.idctojj). 
sgn/clr.sd+ss 



19834 

19835 

19836 442: 

19837 

19838 

19839 

19840 =00***** 

19841 STATE KC.13. 

19842 ALUJ>*Q.RCR153 ALU, 

19843 D Q.CALL.J/ASPt 

19844 ; 

19845 =11***** 

19846 ALU D.RCCT53_ALU,D_Q, 

19847 J/P2T.I0 

19848 =;END 

19849 =010**1* 

19850 P2T.I0: ALU D.AND.KC.FFF03, 

19851 RCCT33 ALU. 

19852 N8Z.AL0.VfcC 0. 

19853 D.Q.CALL.J/5PEC 

19854 ; 

19855 =011**1* 

19856 ALU Q-KC.13.SC ALU. 

19857 CALC.J/ASPC 
19858 

19859 =111**1* 

19860 P2T.I00: .-REENTER HERE AFTER A FAULT 

19862 ALU Q.ANDNOT.KC.1F3, 

19863 N AMX.Z TST.WORD. 

19864 L*B RCRT53. 

19865 SGN7CLR.SD+SS.J/P2NI.01 

19866 =;END ; 



SAVE SRC-ADDRESS 



CLEAR STATE-REGISTER 
GENERATE HIG SRC-ADDRESS 
EVALUATE TABLE-ADDRESS 



SAVE TABLE-ADDRESS 



CLEAR OVERFLOW-REGISTER 
CLOCK LENGTH 
EVALUATE DST-LENGTH 



SAVE SRC-LENGTH-1 IN SC 
EVALUATE DST-ADDRESS 



STRIP OFF LENGTH 
CLOCK EXTRA BITS 
GET HIGH ADDRESS 
CLEAR SS FOR BRANCHING 



ZZ-ESOAA-124.0 ; DECMAL.MIC C600. 12043 
; P1W124.MCR 600.12043 MICR02 1L(03) 
; DECMAL.MIC C600.12O43 Decimal string 



U 0622. 001B.A901,05CO,F988,0192.0748 
U 062A, 0000,003C.B580.3FA8.0280,CB98 

U 0748. 001D,1A10,C580,3E98,0080,COF9 
U 074A, 001D.1A14,C580,3E98,0080.COF9 
U 0B98, 0000,893C,0180,4218,0000.074C 



H 9 
Decimal string_ _ 14-Jan-82 Fiche 3 Frame H9 Seguence 523 

VAX1 1/780 Microcode : PCS 01, FPLA OE, WCS124 Page 



►cimal string 14- 
14-Jan-82 15:30:16 
CVTPT 



522 



U 074C, 0819.0F34,CDCO,F908,0030,08EA 



U 074E, 0013,8F14,0180.F800,0284.68F2 



19867 
19868 
19869 
19870 
19871 
19872 
19873 
19874 
19875 
19876 
19877 
19878 
19879 
19880 
19881 
19882 
19883 
19884 
19885 
19886 
19887 
19888 
19889 
19890 
19891 
19892 
19893 
19894 
19895 
19896 
19897 
19898 
19899 
19900 
19901 
19902 
19903 
19904 
19905 



=0*** 
P2NI.01: 



fe sc.alu_q.oxtcbyte3-kc.13. 
clk ubcc 

q.alu. sc ' alu.rcct1 3 alu. 
i&2-1 ?.c*ll. j/set.fpd.p2n 



=;END 
=0* 



ALU LA.VAK/LOAD. 
LC RCCT53M1.ALU. 
IDtFPDA3 D. 
SC.SC+1.J/P2NI 



BRANCH ON BIT 2 OF OPCODE (IR<1>=0) 
0*- 



SET.FPD.P2N: 

ALU D+Q+1,RCR33_ALU.IDCT13 D. 
SC. SC+1 .PSL.CC?, J/BCD.FPD 

ALU JHQ.RCR33 ALU.IDCT13 D, 
SC.SC+1 ,PSL.Ct?, J/BCD.FP0 



=;END 
P2NI: 



=0* 



DCBYTE3 CACHE. LAB *CR33. 
IR2-1? 



=;END 



BRANCH ON BIT 2 OF OP-COPE (JR <1>=0) 

ALU D.AND.KC.F03.N AMX.Z TST. 
LC RCCT13, 

D JU.U.Q ALU.BCDSGN?, 
J7P 2SS 

SC KC 83 

ALO J>'. OXT CBYTE3+LC , VAK/LOAD . 

BCDSGN? 



SAVE DST-LENGTH IN RC1 
CLOCK IT INTO ALU CC 

SET FIRST PART DONE 

LOAD SRC-ADDRESS 

GET FABLE-ADDRESS 

LOAD .33 IN FPDA (RESTART ADDRESS) 

INCREMENT DST-LENGTH 



LOAD DST-ADDRESS. SAVE IT 
TEST FOR ILLEGAL LENGTHS 

INITIALIZE DST-ADDRESS 
SET FIRST PART DONE 

READ SIGN-BYTE 

TEST FOR SEPARATE OR TRAILING 



CLOCK HIGH NIBBLE 
GET DST-LENGTH 
TEST SIGN OF SOURCE 
LEADING SEPARATE STRING 



FOR LATER SHIFTING 

LOAD INDEXED TABLE-ADDRESS 

TEST SRC-SIGN 



*********************************************** 

* Patch no. 092, PCS 074E trapped to UCS 119C * 

*********************************************** 



I 9 

ZZ-E50AA-124.0 ; DECMAL.MIC 1*600,12043 Decimal string 14-Jan-82 Fiche 
; P1W124.MCR 600,12043 MICR02 1L(03) 14-Jan-82 15:30:16 VAX11/780 Microcode 
; DECMAL.MIC C600,12043 Decimal string : CVTPT 



U 08F2, 001B,8034,6DF8,4108,0030,OB99 

U 08F3, 001B,8034,6DF8.4108.1430,CB99 
U 0699. 0D13,0010,01E0.F800,0092.089A 

U 0B9A. OC00.013C.O""EO,FA18.0280,C7FC 

U 07FC, 0000,023C,0180,F800,0010,6BE6 
U 07FD. 0003,003C.0180.FB10,0010,6BF6 

U 0BE6. 0000.803C, 0580,3208, 0084,ABF6 
U 0BE7, 000F,0910,6580,FA98,1404,27C0 

U 07C0, 001B.6030.C980.FB10. 0000, 0BF6 
U 07C2, 001B.6030. 7980. FB10. 0000, 0BF6 



BRANCH ON SIGN-NIBBLE 
10- 



19906 

19907 =10 

19908 

19909 

19910 

19911 

19912 

19913 

19914 

19915 

19916 

19917 

19918 

19919 

19920 =:END 

19921 P2T0: 
19922 
19923 
19924 
19925 
19926 
19927 
19928 
19929 
19930 =0 
19931 
19932 P2NI0: EALU_FE.CLK.UBCC, 



ALU D.0XTCBYTE3.AND.KC.FFF03, 

N AWX.Z TST, 

Lt_RCCTT3. 

DCBYTE3.CACHE.Q 0, 

J/P2T0 

STATE.STATE+1 , 

ALU D.0XTCBYTE3.AND.KC.FFF03, 

N.ARX.Z TST, 

LP RCCTT3, 

D CBVTE3.CACH£,QJ) 

6 DAL.SCQ.D, 
ATU.0+LC+1,SC_ALU, 
C LK.UBCC 

6 O.Q.D, 

sZ SC+1 

ALO RCR33.VAK/LOAD, 

Z7.3/P2NI0 



BRANCH ON ALU Z-6IT 
0- 



19933 
19934 



ROR?,J/P2NI1 



19935 P2TI5: ALU 0(A) .LAB R18RCCT23.ALU, 



19936 
19937 

19938 =;END 

19939 =110 
19940 

19941 P2NI1 
19942 
19943 
19944 
19945 
19946 
19947 

19948 =;END 

19949 =6* 
19950 
19951 
19952 
19953 
19954 
19955 
19956 
19957 
19958 =;END 



EALO FE,CLK.OBCC, 
J/P2NL 



BR ANCH ON LOW BI T OF DST-ADDRESS 

CACHE.DCBYTE3, 

LAB RtR13, 

SC SCHCC.13,J/P2NL 

ALU O+LB-H ,RCR33 ALU,LONG, 
STATE STATE .OR.Kt. 1 03 , 
IR2-1? 

BRANCH ON BIT 2 OF OP-CODE 

ALU Q. 0XTCWORD3. OR. KC. 30303, 

LAB R1WCCT23.ALU, 

J/P2NL 

ALU Q.0XTCWORD3.OR.KC.303, 
LAB"R1RRCCT23 ALU, 
J/P2NL 



3 Frame 19 Sequence 524 

: PCS 01, FPLA 0£, WCS124 Page 523 



STRIP OFF SIGN-NIBBLE 
CLOCK Z-BIT OF PSL 
GET DST-LEN6TH 
READ TABLE-ENTRY 



SET MINUS-BIT OF STATE 
STRIP OFF SIGN-NIBBLE 
CLOCK Z-BIT OF PSL 
GET DST-LENGTH 
READ TABLE-ENTRY 

STORE RESULT IN D AND Q 
STORE DST-LENGTH IN SC 



D GETS DATA IN BYTE 
INCREMENT DST-COUNT 
LOAD DST-ADDRESS 
TEST DST-LENGTH 



CLOCK SRC-COUNT 

TEST DST-ADDRESS FOR WORD ALIGNMENT 

NO LEFT-OVER DIGIT 
CLOCK SRC-LENGTH 
JUMP TO MAIN-LOOP 

(+1) 

WRITE FIRST BYTE 
GET SRC-ADDRESS 
NO LEFT-OVER NIBBLE 

ADJUST DST-ADDRESS 
SET UNALIGNMENT-BIT 
TEST BIT 2 OF OP-CODE 



LEADING SEPARATE NUMERIC 



MAKE IT ZONED 

SAVE SIGN-BYTE IN RCCT23 

JOIN MAIN LOOP 



ZZ-ESOAA-124.0 ; DECMAL.MIC C600. 12043 
P1W124.MCR 600.12043 MICR02 1L(03) 
DECMAL.MIC C600. 12043 Decimal string 



J 9 
Decimal string 14-Jan-82 Fiche 3 frame J9 Sequence 525 
14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA 0E, WCS124 
: CVTPT 



Page 524 



U 08F6, 0018.1 20O,0580,FA88, 1604, 2496 
U 0BF7, 0000,003C,4180,F800,1404,6033 



U 0496, 0000,963C, 0980,4000.0195,A2AC 



U 049E, 0F00,163C,0980,FA88.0195,A2AC 



U 02AC, 0679,0034,61CO,F800,0030,089C 



U 02AD, 0018, 8034.6DC0.F898, 0030. 08A5 



19959 
19960 
19961 
19962 
19963 
19964 
19965 
19966 
19967 
19968 
19969 
19970 
19971 
19972 
19973 
19974 
19975 
19976 
19977 
19978 
19979 
19980 
19981 
19982 
19983 
19984 
19985 
19986 
19987 
19988 
19989 
19990 
19991 
19992 
19993 
19994 
19995 
19996 
19997 
19998 
19999 
20000 



;MAIN LOOP FOR CONVERTING PACKED TO NUMERIC. 

;IT READS A BYTE AND WRITES A WORD IN EACH PASS, 

.•EXCEPT POSSIBLE IN PASSES AFTER DST-LENGTH HAS REACHED 0. 

;RCCT23 IS USED TO STORE LEFT-OVER BYTE IF DS1-ADDRESS IS NOT 

.•ALIGNED. RCCT33 HAS OVERFLOW DATA. 

.-STATE DETERMINES WHETHER DST-ADDRESS WAS WORD-ALIGNED, 

.AND HAS A SIGN-BIT 

;EALU CC REFLECTS SRC-LENGTH-2. WHICH IS STORED IN FE. 

;SC HAS DST-LENGTH+KIN BYTES). 



=110 

P2NL: 



BRANCH ON INTERRUPT PENDING 
110- 



ALU LA-KC.13.RCR13 ALU. 

VAK7L0AD, 

STATE_STATE.0R.KC. 13, 

EALU?, 

J/P2NL00 

;111- 

STATEJCC.803.J/SAVE .BCD 



=;END 

=011* .BRA NCH ON EALU N-BIT (SS IS 0) 

P2NLO0: PCBYTE3 CACHE. 

FE.SC-Kt.23,CU.UBCC. 

SC FE.BEN/STATE7-4.J/P2NL0 

;1T1*- 

D0.FE_SC-KC.23, 

ACU.LA.RCR1 3.ALU. LONG, 

SC FE, 

CLR . UBCC ,BEN/STATE7-4 



=;END 
=1*0 

P2NL0: 



BRANCH ON ALIGNMENT-BIT OF STATE 
1*0 



=;END 



ALU D.AND.KC.F3.N AMX.Z TST, 
Q ACU.LEFT2, 
DR/RIGHT.J/P2NL1 

ALU D.0XTCBYTE3.AND.KC.FFF03. 
Q.AtU.LA RACR33. 
N.AMX.Z.TST.J/P2NL3 



LOAD SRC-ADDRESS 
CLR 1.TIME FLAG 
TEST SRC-LENGTH 



SET INTERRUPT-BIT. SAVE CONTEXT 



READ NEXT SRC-BYTE 

UPDATE DST-LENGTH. CLOCK IT 

TEST ALIGNMENT 

UPDATE DST-LENGTH 

RESTORE SRC-ADDRESS 

NO MORE INPUT 

UPDATE DST-LENGTH. TEST ALIGNMENT 

(BIT 4) 

CLOCK Z-BIT 

SHIFT LOW NIBBLE LEFT 

SHIFT HIGH NIBBLE RIGHT 



SAVE HIGH NIBBLE 
CLOCK Z-BIT 



K 9 
ZZ-ESOAA-124.0 ; DCCMAL.MIC C600, 12043 Decimal string 14-Jan-82 Fiche 3 Frame K9 Sequence 526 
; P1W124.MCR 600.12043 MICR02 1L(03) 14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA 0E, WCS124 
; DECMAL.MIC C600, 12043 Decimal string : CVTPT 



U 0B9C, 089B,9234,F988,F898,0O30.05D2 



~~l 



U 05D2, 0618,0000,0988. FA98.0200,0B9D 



U 05D6, 0018,0000, 0590, FA98,0395,ABAA 



U 05DA, 081D,0030,0580,F918,0195,ABA6 
U 089D, 0819,0030, C988,F800,0000,OB9E 
U 0B9E, 081D,0O30,O180,F888,4000,0BA4 

U 0BA4, 0000, 4E3C, 0580, 3000, 01 95 ,ABF6 



20001 P2TJL1 : ; C0ME HERE IF DST-ADDRESS IS WO RD-ALIGNED 
QK/LEFT2^ "*"~~~~"~ — -. 
ALU D.0XTCBYTE3.AND.KC.7E3, 
DK/SHF, 

SHF/RIGHT2,N_AMX.Z TST, 
LARACR33, 
BYTE.8EN/EALU 



20003 

20004 

20005 

20006 

20007 

20008 

20009 

20010 =001* 

20011 

20012 

20013 

20014 

20015 

20016 

20017 

20018 

20019 

20020 

20021 

20022 

20023 

20024 

20025 

20026 

20027 

20028 



BRANCH ON EALU Z AND NH3ITS 

001*- 
ALU LA-KC.23.L0NG, 
VAK7LOAD.RCR33 ALU, 
QK/LEFT2,DK/RIGHT, 
J/P2NL2 
;011*- 

FE SC-KC.13.SC.FE, CLK.UBCC, 
AL0.LAHCC.13, 
VAK7LaAD,RCR33 ALU, 
QK/RIGHT2,J/P2NL10 



SHIFT LOW NIBBLE LEFT 



GET DST-ADDRESS 
TEST DST-LENGTH 



UPDATE ADDRESS 

LOAD DST-ADDRESS 

KEEP SHIFTING LOW NIBBLE 



UPDATE SRC-LENGTH 
LOAD DST-ADDRESS 



*********************************************** 

* Patch no. 057, PCS 05D6 trapped to WCS 1183 * 

*********************************************** 



;101*- 

FE SC-KC.13,SC FE, CLK.UBCC, 

LC RCCT33, 

ALOJ>.OR.Q,D_ALU,J/P2NL33 



20029 

20030 =;END , 

20031 P2NL2: ALU D. OR. KL". 30303, 
DJ\TU,QK/LEFT2 



20032 
20033 
20034 
20035 
20036 
20037 
20038 
20039 
20040 
20041 



INTRPT. STROBE, 
ALUJ>.0R.Q,D.ALU,LA_RACR13 



CACHE J>CW0RD3,FE_SC-KC. 13, 
SC FE, CLK.UBCC, 
BER/INTERRUPT, 
J/P2NL 



UPDATE SRC-LENGTH 
GET PREVIOUS OVERFLOW 
ALL GOES TO OVERFLOW 



MAKE ZONED DIGITS 

ASSEMBLE THE WORD 

WRITE WORD 
UPDATE SRC-LENGTH 

LOOP B»CK 



Page 525 



ZZ-ESOAA-124.0 ; DECMAL.MIC C600. 12043 
. P1W124.MCR 600.12043 MICR02 1L(03) 

; DECHAL.MIC C600.12043 Decimal string 



Decimal string 
14-Jan-82 15:30:16 
: CVTPT 



L 9 
l4-Jan-82 f iche 3 Frame L9 Seguence 527 



VAX1 1/780 Microcode : PCS 01 .. FPLA 0E, WCS124 



a 



Page 526 



U 0BA5, 081B,9234,6180,F910,0030,05E2 

U 05E2, 0018.0000,0988.FA98,0200.0BA8 
U 05E6, 0O1D,0030,05C0,F800,0195,A8AC 

U 05EA. 0810,0030, 0580, F918,0195,ABA6 

U 08A6, 0011, 1230, 0180, FBI 8,001 0,0526 

U 0BA8, 0811, 0030, 0588, F888, 4195 ,ABA9 
U 0BA9, 0019,6E30,C980,3190,0000,08F6 



20042 P2NL3: ;C0ME HERE IF DST-ADDRESS IS NOT ALIGNED WITH SRC 

20043 ; 

ALU D . 0XTCBYTE3 . AND .KC . F 3 , 
NARX.Z_TST,D ALU, 
B7TE.LC RCCT23, 
BEN/EALO 



BRANCH ON EALU Z AND N-8ITS (SS 
001*— 



20044 

20045 

20046 

20047 

20048 

20049 =001* 

20050 

20051 

20052 

20053 

20054 

20055 

20056 

20057 

20058 

20059 

20060 

20061 =;END . 

20062 P2NL33: ALU_D.OR.LC,CLK.UBCC, 



ALU LAHCC .23 , VAK/LOAD, 
RCR33 ALU,LONG, 
QK/LEPT2,J/P2NL4 

;011* 

FE SC-KC.13.SC FE.CLK.UBCC, 
ALO D.0R.Q,Q AtU,J/P2NL30 
;10T*- 



FE SC-KC.13.SC_FE,CLK.U8CC. 
ALO D.OR.Q, 
D.ACU,LC_RCCT33 



20063 

20064 

20065 

20066 P2NL4 

20067 

20068 

20069 

20070 

20071 

20072 

20073 

20074 

20075 

20076 



LAB"R18RCCtS3.ALU,EALU?. 
J/P2NL34 

• — ■ r n-tTTTi 1 -m ~r ~w ■ ^ ■■■ — ■■ w. ■ ii_ i_ ■ 

ALU D. OR. LCD ALU,QK/L£FT2, 
LA RACR13, 

FE_SC-KC.13,CLK.UBCC, 
SC FE, 
I NTRPT STROBE 

CACHE J>CWORD3. 

ALU Q.OR.KC. 30303, RCCT23.ALU, 

BEN7INTERRUPT, 

J/P2NL 



GET LOU NIBBLE IN D 
GET PREVIOUS NIBBLE 
TEST DST-LENGTH 



IS CLEAR) 

LOAD AND UPDATE DST-ADDRESS 
SHIFT HIGH NIBBLE 

UPDATE SRC-LENGTH 
CURRENT DATA IS OVERFLOW 

UPDATE SRC-LENGTH 

GET OVERFLOW 



SAVE OVERFLOW IN RCCT13 
TEST SRC-LENGTH 

ASSEMBLE WORD 

GET SRC-ADDRESS READY 

DECREMENT SRC-LENGTH 



WRITE WORD 

SAVE LEFT-OVER NIBBLE 

TEST FOR PENDING INTERRUPTS 



U OBAA, 0899,2030,D1E0,F800,4000,0BAB 

U OBAB, 0001,AE3C,1980,3318,0084.6BF6 
U OBAC, 0810,0038,7180,F910,0084,6BAD 
U OBAD, OD18,0000,0580,FA98,0200,08AE 
U OBAE, 0003,003C, 01 80, F 990, 4000, OBAB 



ZZ-ESOAA-124.0 ; DECMAL.MIC t.600,12043 
; P1W124.MCR 600,1204] MICR02 1L(03) 

; DECMAL.MIC [600.12043 



M 9 



Decimal string 14-Jan-82 
H-Jan-82 15:30: 
Decimal string : CVTPT 



Fiche 3 Frame M9 Seguence 528 

124 Page 527 



16 VAX11/780 Microcode : PCS 01, FPLA OE, WCS1i 



U 0526, 0018,0000,0580,FA88, 1604,24% 
U 052E, 0010, 1638, 01C0,F910, 0000, 02F4 



20077 ;THIS PA6E HAS CLEANUP ROUTINES FUR P2N-INSTRUCTI0N. 

20078 

20079 P2NL10: ;DST-LENGTH IS 0,DST-ADDRESS IS ALIGNED,yRITE ONE MORE BYTE 

20081 ALU Q.OR.KC.C03, 

20082 DjCU.RIGHT2, ; MAKE DATA ZONED AS WE SHIFT 

20083 Q"D, 

20084 iflTRPT. STROBE 
20085 



DST-LENGTH IS 0,DST-ADDRESS IS NOT ALIGNED,URITE ONE MORE BYTG 

GET PREVIOUS NIBBLE 



20086 P2NL11: CACHE.DCBYTE3, 

20087 ALU.O . SC KCZER03 , 

20088 LAB Rl*RtCT33_ALU, 

20089 BEN7INTERRUPTTJ/P2NL 
20090 

20091 P2NL30: 
20092 
20093 
20094 
20095 
20096 
20097 
20098 
20099 
20100 
20101 
20102 

20103 =011* 
20104 



A LU_RCCT23.D.ALU,SC. KC.FFF83 

ALU LA-KC.13, 
VAK7L0AD,RCR33_ALU, 
D .DAL. SC 

ALU 0(A), RCCT23 ALU, 
INTRPT. STROBE, 
J/P2NL11 



WRITE BYTE, LOOP BACK 

CLEAR DST-LENGTH 

GET SRC-ADDRESS AND OVERFLOW 



UPDATE AND LOAD DST-ADDRESS 
SHIFT Q INTO PLACE 

CLEAR LEFT-OVER NIBBLE 



BRANCH ON EALU N-BIT (SS IS CLEAR) 
011* 
20105 P2NL34: ALU LA-KC.13,RCR13 ALU, 



20106 
20107 
20108 
20109 
20110 
20111 
20112 
20113 =;END 



VAK7L0AD, 

STATE STATE.OR.KC. 13, 

J/P2NC00 

;111*- 

ALU RCCT23, 

Q ALUSTATE7-4?, 

J7P2N.FIN 



LOAD SRC-ADDRESS 
CLR 1.TIME FLAG 



GET LEFT-OVER WORD 
TEST ALIGNMENT 
FINISH UP 



ZZ-ESOAA-124.0 ; DECMAL.MIC C600.12043 
; P1W124.MCR 600.12043 MICR02 1L(03) 
; DECMAL.MIC C600,12043 Decimal string 



Decimal string 

14-Jan-82 15:30:16 



: CVTPT 



N 9 
14-Jan-82 Fiche 

VAX11/780 Microcode 



3 Frame N9 Seguence 529 

: PCS 01, FPLA 0E. WCS124 Page 528 



U 02F4, 0010.0038,C5F0.2D18.0010.0BB1 
U 02F5, 0019.2024. C9C0,F 800, 0000, OBBO 

U 0880, 0011,6030,C5F0,2D18,0010,08B1 
U 0BB1. 0001,213C.C1FO,2COO,0200,0804 

U 0804, 0000.003C,3180,F800, 1404, 2805 
U 0805, 0003,093C,2180,FA80,0030,07DO 

U 07D0, 0838,1 n0.2380,F800,0000,09lD 
U 07D2, 0000.173C,6580,F800,1404,288D 

U 091D, 0000.973C,6580,3000,1404,288D 
U 091 F. 0819,0014,0980,F800,0000,091D 



BRANCH ON ALIGNMENT-BIT OF STATE (BIT 4). 
1*C 



20114 

20115 =1*0 
20116 

20117 P2N.FIN: 

20118 ALU_RCCT33,Q IDCT13, 

20119 CLKTUBCC.J/P2NL35 

20120 ;1*1 

20121 ALU Q.ANDNOT.KC. 30303. 

20122 Q_AtU 

20123 =;END 

20124 LC RCCT33, 

20125 ALO Q.OR.LC.CLK.UBCC.WORD. 

20126 Q_l5[T13 

20127 ;= 

20128 P2NL35: VA Q.Q IDCT03, 



20129 

20130 

20131 =0 

20132 

20133 

20134 

20135 

20136 

20137 =;END 

20138 =0* 
20139 
20140 
20141 
20142 
20143 
20144 
20145 

20146 =;END 

20147 =1101 
20148 



Z? 

; BRANCH ON ALU Z-8IT 

STATE STATE. OR.KC.403 

;1 

ALU 0<A) .RCWH.ALU.N.AMX.Z.TST, 
KC.T43.IR 2-1? _ 

•BRANCH ON BIT 2 OF OP-CODE 
;0»- 



ALUO+KC. 143+1, 

D ACU.LEFT.SI/MUL-, 

STATE3-0?,J/P2NL38 

;1*- 

STATE_STATE.OR.KC. 103, 

STATE3-0?,J/FINI1 



.-BRANCH ON SIGN-BIT 
;1101- 

20149 P2NL38: STATE_STATE.OR.KC. 103. 

20150 CACHE DCBYTE3,STATE3-0?,J/FINI1 

201 51 ; 1 1 1 1= 

20152 ALU D+KC.23.D ALU.J/P2NL38 

20153 =;END .—- = = 



CLOCK OVERFLOW 

ISOLATE DIGIT FROM ZONE 



GET PREVIOUS OVERFLOW-DATA 

CLOCK OVERFLOW 

GET DST-SIGN-ADDRESS 

LOAD IT IN VA, GET SRC-ADDRESS 
TEST FOR OVERFLOW 



SET 0VERFL0W-8IT OF STATE 

CLEAR RO, CLEAR PSL-N-8IT 
SEf^RATE OR TRAILING NUMERIC? 



GENERATE CONSTANT .2B 
TEST SIGN-8IT 

USE THIS BIT IN FINISH-ROUTINE 
TEST SIGN-BIT 



USE THIS BIT IN FINISH-ROUTINE 
WRITE SIGN-BYTE, TEST SIGN-BIT 

GENERATE .2D 



ZZ-ESOAA-124.0 ; DECMAL.MIC [600,12043 
; P1W124.MCR 600,12043 MICR02 1L(03) 
; DECMAL.MIC [600.1204:! Decimal string 



B 10 

Decimal string 14-Jan-82 Fiche 3 Frame BIO Seguenc 

H-Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01, FPLA OE, WCS124 
: CVTTP 



530 



Page 529 



20154 
20155 
20156 
20157 
20158 
20159 
2C160 
20161 
20162 
20163 
20164 
20165 
20166 
20167 
20168 
20169 
20170 
20171 
20172 
20173 
20174 
20175 
20176 
20177 
20178 
20179 
20180 
20181 
20182 
20183 
20184 
20185 
20186 
20187 
20188 
20189 
20190 
20191 
20192 
20193 
20194 
20195 
20196 
20197 
20198 
20199 
20200 



.TOC 



Decimal string 



CVTTP' 



CONVERT TRAILING NUMERIC STRING TO PACKED 
ALGORITHM: 

1. STARTING AT 'tVTTP.INir* THE SPECIFIERS ARE EVALUATED 
AND THE REGISTERS INITIALIZED. FIRST PART DONE IS SET. 

THE SIGN-BYTE IS ADDED TO A TABLE-ADDRESS, TO GET ADDRESS OF 
DEST-SIGN-BYTE CT2P.1V). 

2. THE MAIN LOOP CONSISTS OF TWO PARTS. 

FIRST BYTES ARE READ FROM THE SRC-STRING, AND PACKED INTO A 

A LONGUORD ("T2P.L0"). UNTIL THE LONGWORD IS COMPLETE OR THE SRC-STRING 

TS EXHAUSTED. THEN THE LONGUORD IS WRITTEN INTO THE 

^ST-STRING ( , T2P.L0NG0 ,, >, AND THE FIRST STEP IS REPEATED. 

WHILE READING *0NED BYTES FROM THE SRC-STRING, THEY ARE 

CHECKED FOR CORRECT FORMAT, AND A RESERVED OPERAND FAULT IS TAKEN IF 

THEY ARE NOT IN THE RANGE 30-39. 

3. FINALLY, AFTER REACHING THE END OF BOTH STRINGS, CT^-FINl"). 
THE CONDITION CODES ARE SET AND THE GENERAL REGISTERS ARE LOADED. 
NOTE THAT EVEN THOUGH THE SIGN-BYTE COMES OUT OF THE TABLE, 

WE MAY CHANGE A -0 TO A +0, AND THE PREFERRED SIGNS (C OR D) 
ARE ALWAYS GENERATED. 

IF AN INTERRUPT OR MEMORY FAULT OCCUR. THE ORIGINAL 
OPERANDS ARE SAVED IN 6ENERAL REGISTERS ('BCD. SAVE"), 
AND THE INSTRUCTION IS RESTARTED AT , T2P.I1". 

THE OP-CODE IS 26 

THE SEQUENCE OF OPERANDS IS: 

opcode srclen.rw, srcaddr.ab, tbt.addr.ab, dstlen.rw, dstaddr.ab 

STORAGE: 

SRC-LENGTH IS STORED IN RC6, AND SAVED IN RCO 
SRC-ADDRESS IS SAVED IN TO, STORED IN R1 
DST-LENGTH IS SAVED IN RC1 , STORED IN R2 
DST-ADDRESS IS SAVED IN T1, STORED IN R3 
TABLE-ADDRESS IS SAVED IN RC5 



; STATE-REGISTER: 
ilNTRPT ;OVFLOW ; 



:END OF 
:SRC 



;1.WRIT ;SIGN 



ZZ-ESOAA-124.0 ; DECMAL.MIC C600.12043 
; P1W124.MCR 600.12043 MICR02 1L 
; DECMAL.MIC [600.12043 Decimal string 



Decimal string 14-Jan-82 
MICR02 1L(03) 14-Jan-82 75:30:16 



C 10 

Fiche 3 Frame C10 Seguence 531 

VAX1 1/780 Microcode : PCS 01. FPLA 0E, WCS124 Page 530 



U 0443, 001 9.2034 ,A1 80, F 800, 0050, 0588 

U 0588, 0803,A03D.C180,3D80,0092,047E 

U 05E8. 0001,003C, 0580, F9A8,0084.A282 
U 0282, 001 F, 0001 ,0130,F980,0000.037E 
U 0292, 0019,0035,A180,F800,0030,047E 
U 02F2, 0003,603C, C5C0,3D88, 0000, 0882 



: CVTTP 

.-ENTER HERE FROM D-FORK WITH SRC-LENGTH IN Q, DST-ADDRESS IN D 



20201 443: 

20202 

20203 

20204 CVTPT.INIT: 

20205 ALU Q.AND.KC.FFE03, 

20206 NftZ.ALU.V8C 

20207 .— = = 

20208 =00***** 

20209 ALU Q.OXTCBYTEJ.CLK.UBCC, 

20210 RCL703 ALU.SC ALU, 

20211 D ALU.TDCT03J5. 

20212 CALL.J/ASPC 
20213 

20214 =11***** 

20215 SC SC-KC.13. 

20216 ALO D,RCCT5J ALU. 

20217 J/T2P.I0 

20218 ; 

20219 =000**1* 

20220 T2P.I0: ALU 0-Q.RCCT63 ALU, 

20221 CALC.J/SPEC 
20222 

20223 =001**1* 

20224 ALU D.AND.KC.FFE03, 

20225 N AMX.Z TST.CALL.J/ASPC 

20226 ;= = 

20227 =111**1* 

20228 ALU O.0XTCWORD3,Q ALU. 

20229 RCCT13_ALU,IDCT13ID,J/T2P.I1 

20230 =;END ; 



TEST SRC-LENGTH 
DIVIDE IT BY 2 



CLOCK LENGTH FOR LATER USE 
SAVE SRC-LENGTH 
SAVE SRC-ADDRESS 
EVALUATE TABLE-ADDRESS 



STORE ADDRESS IN RC5 



INITIALIZE RC6 WITH NEGATIVE LENGTH 
EVALUATE DST-LENGTH 



STRIP OFF LENGTH-BITS 

CLOCK EXTRA BITS INTO PSL-Z-BIT 



SAVE DST-LENGTH IN RC1 
SAVE DST-LENGTH AND ADDRESS 



U 0BB2, 001F,0008,21BO,FA90.0104,6631 



ZZ-ESOAA-124.0 ; DECMAL.MIC C600.12043 
; P1W124.MCR 600.12043 MICR02 1L(03) 
; DECMAL.MIC C600, 12043 Decimal string 



Decimal string 14-Jan-82 
T5:30: 
: CVTTP 



D 10 

Fiche . Frame D10 seguen 

VAX1 1/780 Microcode : PCS 01. FPLA 0E, WCS124 



U0631, 001D,1A11,C1FO,2E98,0000,OOF9 
U 0639. 0000,003C.B580,3COO.OOOO,08B3 

U 0BB3, 0019,21 14. 1D80,FA88, 0200, 080 C 



U 080C, 0010,8038,25C0.4128.0084,680D 



U 080D, 001F,8114,F5F8,F930,0284,2814 



U 0814, 001 1,A01 0,0581, '♦180,1404,6834 
U 0815, 0F00,003C,65C0,FA10,K14,6197 



14-Jan-82 15:30:16 
TP 

;RFENTER HERE AFTER A FAULT OR INTERRUPT 



Sequence 532 



Page 531 



20231 
20232 

20233 T2P.I1: FE KC.143, 

20234 ALO O-Q-1 ,RCR23_ALU, 

20235 QK/RlGHT 
20236 

20237 * *********************************************** 

20238 ; * Patch no. 090, PCS 08B2 trapped to UCS 119A * 

20239 ; *********************************************** 
20240 

20241 =0*** ;— 

20242 T2P.X1 : ALU D+Q>1 .RCR33 ALU, 



SC 6ETS SRC-LENGTH-1 ,FE GETS 20. 
INITIALIZE DST-LENGTH 
DIVIDE LENGTH BY 2 



20243 

20244 

20245 

20246 

20247 

20248 

20249 

20250 

20251 =0 

20252 

20253 

20254 

20255 

20256 

20257 

20258 

20259 

20260 

20261 

20262 =0 

20263 

20264 

20265 

20266 

20267 

20268 

20269 

20270 

20271 

20272 



Q IBCT03, 

P SL.CC ? , CAL L,J/BC P . FPD 

IDCFPDA3.D 

ALU Q+KCSC3.RCR13 ALU, 
VAK7L0AD.Z? 



BRANCH ON ALU 7-BIT 



Q RCCT53, 
St KC.AOJ. 
D C5YTE3„CACHE 

ALU D.0XTCBYTE3+O, VAX/LOAD, 

SC_5C.OR.KC.A3, 

LClRCCT63,Q.O, 

Z? 



BRANCH ON ALU Z-BIT 



ALU Q-H.C+1 , 

RCCT63 ALU, SGN/LOAD. SS , 

STATE RC. 13, 

DC8YTE3 CACHE,J/T2P.2 



STATE.KC.103, 

Q RCR23.CLK.UBCC, 

DlO,J/T2P.LONG1 



INITIALIZE R3 TO HIGH DST-ADDRESS 
GET SRC-ADDRESS 



STORE MEMORY-FAULT ADDRESS (33) 

GENEARATE HIGH SRC-ADDRESS 
LOAD ADDRESS IN VA, TEST LENGTH 



GET TABLE-ADDRESS 
BUILD CONSTANT AA 
READ TRAILING BYTE 

LOAD r '4)EXED ADDRESS 

GET SRC-LENGTH 

TEST SRC-LENGTH AGAIN 



INITIALIZE STATE-REGISTER 



WRITE IN DST-STRING 



ZZ-ESOAA-124.0 ; DECMAL.MIC [600,12043 

; P1U124.MCR 600.12043 MICR02 1L(03) 

; DECMAL.MIC C600. 12043 



E 10 
g l«-Jan-82 Fiche 3 Frame E10 seguen 
14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA 0E, WCS124 



Decimal string 14-Jan-82 
14-Jan-82 75:30: 
Decimal string : TVTTP 



Sequence 533 



Page 532 



U 0884, 001B,8000,1DDO,F800,0081,08B5 
U 08B5, 0019,AF20,A580,F930,0010,0902 

U 0902, 0819,0134, CD80,F800. 0000, 081 C 
U 0903, 0819,0134, CD80,F 800,1 400, C81C 
U 081C, 0000,003C, 0?80,F800,0000,0106 

U 081D, OB13,1210,8581,F830,0104,293E 
U 093E, 0000, 003C,65CO,FA10, 1414, 2197 



U 093F. 0018, 0000. 05F8,FBB0, 0200, 0908 



20273 T2P.2: ALUD.0XTCBYTE3-KCSC3, 

20274 SC.FE, Q.DEC. CON 

20275 ;-= = 

20276 ALU Q.X0R.KC.603, 

20277 CU.UBCC.BYTE. 

20278 LC_RCCT63,BCDSGN? 
20279 



BRANCH ON BCD-SIGN-NIBBLE 



SC GETS 20. 

TEST DECIMAL CONSTANT 

TEST DECIMAL SIGN 

STRIP OFF SIGN-NIBBLE 

STRIP OFF SIGN-NIBBLE 

INVALID SIGN-BYTE 

FE GETS 28., SC KEEPS 20. 



20280 ^10 
20281 

20282 T2P.3: ALU D.AND.KC.F03,D ALU, 

20283 Z?,J/T2P.4 

20284 ; 

20285 STATE STATE+1, 

20286 ALU D.AND.KC.F03,D ALU, 

20287 Z?,J/T2P.4 

20288 ; 

20289 =0 .-BRANCH ON ALU Z-8IT 
20290 

20291 T2P.4: J/RSVOPR 
20292 

20293 T2P.5: FE SC.0R.KC.C3, 

20294 ALDj)*LC*1,SGN/LOAD.SS, 

20295 LAB R18RCCT63 ALU, 

20296 D D.SUAP, 

20297 E*LU?,J/T2P.6 
20298 

20299 =1110 -BRANCH ON SGN SRC 
20300 

20301 T2P.6: STATE STATE. OR.KC. 103, 

20302 Q_RCR23,CLK.U3CC,J/T2P.LONG1 
20303 

20304 ; *********************************************** 

20305 ; * Patch no. 040, PCS 093E trapped to UCS 1174 * 

20306 ; *********************************************** 

20308 T2P.7: VA LA-KC.13, ; UPDATE AND LOAD SRC-ADDRESS 

20309 LC RCCT636R1 ALU, ; GET SRC-LENGTH 

20310 Q 0,J/T2P.L10 

2031 1 ; = ; 



SWAP SIGN-BYTE INTO HIGH BYTE 
BRANCH ON SIGN OF SRC-LENGTH 



SET END-OF -SRC-BIT OF STATE 
GET DST-LENGTH 



ZZ-ESOAA-124.0 ; DECMAL.MIC C600,12043 Decimal strirv 

P1W124.MCR 600.12043 MICR02 1L(03) K-Jan-82 

DECMAL.MIC [600.12043 Decimal string : CVTTP 



F 10 
g 14-Jan-82 Fiche 3 Frame F10 Sequence 534 

15:30:16 VAX1 1/780 Microcode : PCS 01, FPLA OE, UCS124 Page 533 



U 094C. 0D00,0F3C.65C0.FA10.1414,2195 



U 094D, ODOO,OF3C,01CO.FA10,0010,0195 



U 094E. 0D00,0F3C,F1F8.F800.0084,6921 



U 094F, 0D18.0F00,05F8.FBB0,0381,0909 



U 0909, 0000,003C,0180,F800.0000,0106 



U 090B. 0011,B210,11E1,4330,0195,A94C 



20312 
20313 
20314 
20315 
20316 
20317 
20318 
20319 
20320 
20321 
20322 
20323 
20324 
20325 
20326 
20327 
20328 
20329 
20330 
20331 
20332 
20333 
20334 
20335 
20336 
20337 
20338 
20339 
20340 
20341 
20342 
20343 
20344 
20345 
20346 
20347 
20348 
20349 



=1100 



MAIN LOOP FOR READING 8 BYTES FROM SRC-STRING 

EXPECTS RC6=-SRC-LENGTH 

EXPECTS LA=R1=SRC-ADDRESS+1 

EXPECTS FE=28,SC=28-4*(#0F BYTES READ) 



BRANCH ON SC NE AND SS-BIT 



T2P.L0: D.DAL. SC, 

Q~RCR23,CLK.UBCC, 
STATE STATE. OR.KC. 103, 
ZONED?,J/T2P.LON60 

D.DAL. SC, 

Q RCR23,CLK.UBCC, 

ZONED?,J/T2P.LONG0 



D DAL.SC, 

SZ KC.FFFC3,Q 0, 

Z 0flED?,J/ T 2P.END.0F.S RC 

VA LA-KC.13, 
LC.RCCT63ftHl.ALU, 
FE SCSC.FE. 
D 5AL. SCO 6, 
Z0NED?,J/T2P.L1 



T2P.L00: 



=01 



; BRANCH ON LEGAL ZONED BYTE 

T2P.L1: J/RSVOPR 

T2P.L10: 

ALU.Q+LC+1 ,SGN/L0AD.SS, 
LAB R1*RCCT63 ALU, 
Q D,DCBYTE3_C*CHE, 
FP SC-KC.43,CLK.U3CC, 
SC FE, 
EAtU?,J/T2P.L0 



SHIFT DATA INTO PLACE 

SET END-OF-STRING-BIT 
TEST LAST BYTE 

SHIFT DATA INTO PLACE 

TEST LAST BYTE 



END OF STRING, NOT LONG 

UPDATE ADDRESS 

SWAP SC(28.) WITH FF (BYTE-COUNT) 
SHIFT DATA INTO PLACE 
TEST FOR LEGAL ZONED BYTE 



ILLEGAL ZONED BYTE 



LOAD ALIK15> INTO SS 

GET SRC-ADDRESS, UPDATE COUNT 

READ NEXT SRC-BYTE 

UPDATE AND CLOCK BYTE-COUNT 

MOVE SHIFT-COUNT (=28) INTO SC 



U 0195, 0000,003C. 01 80, F 800. 0000, 01 06 



ZZ-ESOAA-124.0 ; DECMAL.MIC C600.12043 
; P1U124.MCR 600-12043 MICR02 1L(03) 

; DECMAL.MIC C600.12043 Decimal string 



Decimal string 

K-Jan-82 15:30:16 
: CVTTP 



G 10 
H-Jan-82 



Fiche 3 Frame 610 



Sequence 535 



VAX1 1/780 Microcode : PCS 01, FPLA OE, UCS124 



U 0197. 0079.2D15.01CO.F898.4092.0E59 



U 01B7. 0003.163C.C1F0.2E80.0030.035C 



U 01F7, 0018. 0E00.1 180, FA98, 1404. 2C06 



U 033C, 0F19.2014,01F8,FA90,0180,C93F 
U 033D, OF19,2014,01F8,FA90,0000,093E 



20350 =00***01 

20351 : ; 

20352 T2P.LON60: ; ENTER HERE AFTER ASSEMBLING A COMPLETE LONGUORD 

20353 ;THIS ROUTINE WRITES LONGUORD IN D INTO DST-STRING 

20354 ; 

20355 J/RSVOPR 

20356 ; 

20357 =00***11 

20358 T2P.L0NG1: 

20359 LA RACR33. 

20360 ALOQ+KC.63, 

20361 SHF7ALU.DT.L0N6, 

20362 QK/SHF,SC ALU. 

20363 CLK.UBCC. SIGNS?. 

20364 INTRPT.STR08E. 

20365 CALL.JAIRITE1 
20366 

20367 =01***11 

20368 Q IDCT03, 

20369 ACU 0(A) .RCR03.ALU. 

20370 NAMX.Z TST. 

20371 STATE7-S?, 

20372 J/T2P.FIN1 
20373 

20374 =11***11 
20375 
20376 
20377 
20378 

20379 =1*0 

20380 . 

20381 T2P.L0NG3: 

20382 R[R23_Q«*C83. 

20383 SC SC+1.FEK/L0AD, 

20384 Q.O,D„0,J/T2P.7 

20385 ;= = 

20386 RCR23 Q+KC.83. 

20387 Q 0.D.0.J/T2P.6 

20388 ;= = 



STATE_STATE.0R.KC.43. 
RCR33 LA-KC.O, 
BEN/IRTERRUPT.J/T2P.FIN2 



ILLEGAL BYTE 



GET DST-ADDRESS 
INCREMENT LEN6TH 
DIVIDE BY 4 TO MAKE MASK 
LOAD MASK IN SC 
TEST LENGTH AND DATA 
STROBE FOR INTERRUPTS 
CALL URITE-BCD ROUTINE 



GET SRC-ADDRESS 

CLEAR RO 

CLEAR PSL N-6IT 

TEST FOR END OF SRC-STRING 



SET 1. WRITE BIT 

UPDATE DST-ADDRESS 

TEST FOR INTERRUPT REQUESTS 



BRANCH ON END-OF-SCR-6IT OF STATE 



UPDATE DST-LENGTH 
LOAD SC AND FE WITH 28 



UPDATE DST-LENGTH 
NO MORE INPUT-DATA 



Page 534 



ZZ-ESOAA-124.0 ; DECMAL.MC C6C0.12043 

; P1U124.MCR 600.12043 MICR02 1L(03) 

; DECMAL.MIC E600. 12043 Decimal string 



U 0921. 0000.003C.0180.F800.0000.0106 
U 0923. 0000,003C.0180.F800.0080.EBB6 

U 0886. 0D00.003C.65C0.FA10.1414.2197 



H 10 

g lfc-Jan-82 Fiche 3 Frame H10 

K-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01. FPLA 0E. UCS1 



Decimal string 14-Jan-82 

ian-82 
: CVTTP 



Seguence 536 
124 



Page 535 



U 035C. O0OC.1638.EDC0.F888.0084.633C 
U 035D. 0000.173C.7980.F800.1404.488D 

U 0C06, OOOC.1638,EDCO,F888.0084,633C 
U 0C07, 0000.OC3C.4180.F800.1404.6033 



ENTER HERE IF LESS THAN A LONGWORD REMAINS OF SRC-STRING. 
BRANCH ON LEGAL ZONED BYTE 



S C.NABS(SC-FE) 

STATE STATE . OR JCC . 1 03 . 
Q.RCR23.CLIC.UBCC, 
D DAL.SC.J/T2P.LONG1 



.-ENTER HERE IF DST-STRING IS FULL 
.•BRANCH ON END-OF-SRC-BIT OF STATE 



20389 
20390 =01 
20391 

20392 T2P.END.0F.SRC: 

20393 J/RSVOPR 
20394 
20395 
20396 
20397 
20398 
20399 
20400 
20401 
20402 

20403 =1*0 
20404 

20405 T2P.FIN1- 

20406 Q LB.SC KC.1B3.LA RACR13. 

20407 STATE7-g?.J /T2P.L0NG3 

20409 STATE STATE .ANDNOT.KC. 303, 

20410 S TATE3-07.J/FINI1 

20412 =110 -BRANCH ON INTERRUPT REQUEST 

20414 T2P.FIN2: 

20415 Q LB.SC JCC.1B3.LA RACR13, 

20416 STATE7-??.J/T2P,l0NG3 
20417 

20418 STATE KC. 803. 

20419 J/SAVE.BCD 

20420 ; 



GET READY TO RIGHT-ADJUST DATA 

SET END-OF -SRC-BIT OF STATE 
GET DST-LENGTH 
RIGHT-ADJUST DATA 



GET SRC-ADDRESS 

TEST END-OF-SRC-BIT OF STATE 

CLEAR BITS 4 AND 5 
TEST SIGN-BIT OF STATE 



GET SRC-ADDRESS 
TEST END-OF-SRC-BIT 

SET INTERRUPT-BIT OF STATE 
SAVE CONTEXT 



ZZ-ESOAA-124.0 ; DECMAL.MIC C600,1204J 
; P1W124.MCR 600.1204!] MICR02 1L(03) 
; DECMAL.MIC C600.12OA3 Decimal string 



Decimal string 

14-Jan-82 15:30:16 



20421 
20422 
20423 
20424 
20425 
20426 
20427 
20428 
20429 
20430 
20431 
20432 
20433 
20434 
20435 
20436 
20437 
20438 
20439 
20440 
20441 
20442 
20443 
20444 
20445 
20446 
20447 
20448 
20449 
20450 
20451 
20452 
20453 
20454 
20455 
20456 
20457 
20458 
20459 
20460 
20461 
20462 
20463 
20464 
20465 
20466 
20467 
20468 
20469 



CVTSP 



I 10 
14-Jan-82 Fiche 3 Frame 110 Seguence 537 

VAX11/780 Microcode : PCS 01, FPLA 0E, WCS124 Page 



536 



,T0C 



Decimal string 



CVTSP' 



CONVERT LEADING SEPARATE NUMERIC TO PACKED 
ALGORITHM: 

1. STARTING AT "tVTSP.INIT" THE SPECIFIERS ARE EVALUATED 
AND THE REGISTERS INITIALIZED. FIRST PART DONE IS SET. 
THE SIGN-BYTE IS READ AND DECODED ( I.E 28 OR 20 FOR +, 
AND 2S> FOR -) ("S2P.2"). 

THE REST OF THE INSTRUCTION USES CODE SHARED WITH THE 
CVTTP-INSTRUtTION. 

2. THE MAIN LOOP CONSISTS OF TWO PARTS. 

FIRST BYTES ARE READ FROM THE SRC-STRING, AND PACKED INTO A 

A LONGWORD CT2P.L0"), UNTIL THE LONCWORD IS COMPLETE OR THE SRC-STRING 

IS EXHAUSTED. THEN THE LONGWOrtD IS WRITTEN INTO THE 

DST-STRING ( , T2P.LON60">, AND THE FIRST STEP IS REPEATED. 

WHILE READING ZONED BYTES FROM THE SRC-STRING. THE> ARE 

CHECKED FOR CORRECT FORMAT, AND A RESERVED OPERAND FAULT IS TAKEN IF 

THEY ARE NOT IN THE RANGE 30-39. 

3. FINALLY, AFTER REACHING THE END OF BOTH STRINGS, C72P.FIN1"), 
THE CONDITION CODES ARE SET AND THE GENERAL REGISTERS ARE LOADED. 

IF AN INTERRUPT OR MEMORY FAULT OCCUR, THE ORIGINAL 
OPERANDS ARE SAVED IN GENERAL REGISTERS ('BCD. SAVE"), 
AND THE INSTRUCTION IS RESTARTED AT ^P.IV. 



STORAGE: 



TO HAS LOW SRC-ADDRESS, 
T1 HAS LOW DST-ADDRESS, 
RCO HAS LOW SRC-LENGTH 
RC1 HAS DST-LENGTH 
R1 GETS HIGH SRC-ADDRESS 
R2 GETS NEGATIVE DST-LENGTH 
R3 GETS HIGH DST-ADDRESS 
RC6 GETS NEGATIVE SRC-LENGTH 

OP-CODE IS 09 

MNEMONIC IS CVTSP 

THERE ARE NO INSTRUCTION DEPENDENT OPERATIONS. 

STATE-REGISTER: 



INTRPT ;OVFLOW 



END OF 
SRC 



1. 
WRITE 



SIGN 



ZZ-ESOAA-124.0 ; DECHAL.MIC C600.1204D 
; P1U124.MCR 600-1204D MICR02 1LC03) 

; DECMAL.MIC [600,12043 Decimal string 



U 04C1, 0019,6024,8D80,F800,0050.0283 



U 0283, 0003,A03D,C180,3D80,0082,037E 



U 0293, 0019,0035, A1 80, F 800, 0030, 047E 



U 02F3, O003,AO3C,C5C0,3D88,000O.0A28 



Decimal string 
14-Jan-82 15:30:16 
: CVTSP 



J 10 
14-Jan-82 Fiche 
VAX1 1/780 Microcode 



U 08B8, 001D,0010.C1F0,2E98,0000,08B9 

U 0BB9, 0C01,203C,7D80,F800,0304,6632 

U 0632, 0019,1A11,1D80,FB88,0000,00F9 
U 063A, OF13,0008,B580, Tr, :0,0000,OBaA 



20470 

20471 4C1 : 

20472 CVTSP. INI T: 

20473 ALU Q.ANDN0T.K r .1F3. 

20474 N&Z_ALU.V&C.0,U0RD 

20475 ; 

20476 =000**1* 

204V ALU Q.0XTCBYTE3, 

204*""8 RCCT03_ALU,SC.ALU, 

20479 IDCT03~D, 

20480 CALL.J7SPEC 

20481 ; 
?0482 =001**1* 

20483 ALU D.AD.KC.FFE03, 

20484 N AflX.Z TST, 

20485 CAU.J/*SPC 

20486 ; 

20487 =111**1* 

20488 ALU Q.0XTCBYTE3,RCCT13_ALU, 

20489 Q ALU 

20490 l5CT13j) # J/S2P.1 

20491 =;END ; — 



20492 ;S2P.1 IS NOW PART OF RESTART-ROUTINE 

20493 ;S2P.1: STATE JtCZER03,QK/RIGHT. 

20494 ; J/S2P.10 

20496 S2P.10: ALU D+Q+1,RCR33 ALU, 

20497 Q .IPCT 03 

20499 VA Q, 

20500 FE>£.183, 

20501 D_a 

20503 =0*** ALU D+KCSC3+1 , 

20504 LC RCCT138R1.ALU, 

20505 CACL,PSL.CC?,J/BCD.FPD 

20506 ; 

20507 S2P.2: ALU O-LC-1 ,R[R23_ALU. 

20508 IDLTPDAJ D,D 

20509 ; = = 



3 Frame J10 Seguence 538 

: PCS 01. FPLA OE. WCS124 Page 537 



TEST SRC-LENGTH 



ISOLATE LENGTH 
SAVE LENGTH IN SC AND RCO 
SAVE SRC-ADDRESS 
EVALUATE DST-LENGTH 



TEST DST-LENGTH 

"AND" RESULT INTO Z-BIT 

EVALUATE DST-ADDRESS 



SAVE DST-LENGTH 
NEED Q O-EXTENDED 
SAVE DST-ADDRESS 



INITIALIZE STATE, DIVIDE LENGTH BY 2 



GENERATE HIGH DST-ADDRESS 
GET SRC-ADDRESS 

LOAD LOU SRC-ADDRESS 
FE GETS 24. 



GENERATE HIGH SRC-ADDRESS 

SET FPD, TEST FOR LEGAL LENGTHS 

INITIALIZE DST-LENGTH 
LOAD FPD-ADDRESS 



ZZ-ESOAA-124.0 ; DECMAL.MIC C6O0.12O43 
; P1W124.MCR 600.12043 MICR02 1L(03) 
; DECMAL.MIC C600,12043 Decimal string 



Decimal string 14-Jan-82 
H-Jan-82 15:30: 
: CVTSP 



K 10 

Fiche 
16 VAX1 1/780 Microcode 



U OBBA, 0019,8000 ,1D81 ,4180,0081 ,08BB 

U 08BB, 0819,8020,7580,F930,0010.0BBC 
U OBBC, 081 9.81 20.8980,F800,001 0,0820 

U 0820, 0019.8120.D580,F800.0010.0824 

U 0821. OF13,1210.1181.FB30,0104,893E 

U 0824, OFOO,013C,0180,F800,0000,081C 
U 0825, 0000, 003C, 0980, F800, 1404,6821 



20510 

20511 

20512 

20513 

20514 

20515 

20516 

20517 

20518 

20519 

20520 

20521 

20522 

20523 =0 

20524 

20525 

20526 

20527 

20528 S2P.7: FE SC+KC.43. 

20529 ALO.O+LC+1 , SGN/LOAD . SS , 

20530 LAB_R1*RCCT63 ALU, 

20531 D_0,EALU?,J/T2>.6 

20532 ;= 

20533 =0 ;8RANCH ON ALU Z-8IT 
20534 



DCBYTE3 CACHE, 

ALU D-KtSC3»RCCT63 ALU, 

SGN7L0AD.SS, 

SC.FE 

* ■_!■.!■ IM I I I I ■ ■ ■. I. a *- M_ ■ 

ALU D.X0RJCC..203. 
D ATU,CLK.UBCC, 
B YTE,LC.RCCT63 

ALUJ>.XOR.KC.DJ,D ALU, 
CLK.UBCC,8YTE,Z? 



BRANCH ON ALU Z-BIT 

ALU_D.XOR.KC.63, 
CLK.UBCC.BYTE,Z?,J/S2P.5 



20535 S2P.5: D 0,Z?,J/T2P.4 

20536 .= 

20537 STATE KC.23. 

20538 J/S2P77 

20539 ; 



3 Frame K10 Seguence 539 

: PCS 01, FPLA OE, WCS124 Page 538 



READ SIGN-BYTE 
D HAD 

LOAD SS WITH SIGN 
SC GETS 24. 

COMPARE IT WITH SPACE 

GET NEGATIVE SRC-LENGTH 

COMPARE SIGN-BYTE WITH A X 2D 
TEST PREVIOUS COMPARISON 



COMPARE WITH A X 28 

TEST PREVIOUS COMPARISON 

FE GETS 28., SC HAS 24. 
UPDATE NEGATIVE SRC-LENGTH 
GET SRC-ADDRESS 



TEST LAST COMPARISON 
NEGATIVE STRING 



ZZ-ESOAA-124.0 ; DECMAL.MIC C600.12O43 
P1W124.MCR 600.1204] MICR02 1L(03) 
DECMAL.MIC C600.12043 Decimal string 



L 10 
Decimal string 14-Jan-82 Fiche 3 Fr*ne L10 Seguence 540 
14-Jan-82 T5:30:16 VAX11/780 Microcode : PCS 01. FPLA OE. WCS124 Page 
: ADDP4. ADDP6. SUBP4. SUBP6 



539 



20540 

20541 

20542 

20543 

20544 

20545 

20546 

20547 

20548 

20549 

20550 

20551 

20552 

20553 

20554 

20555 

20556 

20557 

20558 

20559 

20560 

20561 

20562 

20563 

20564 

20565 

20566 

20567 

20568 

20569 

20570 

20571 

20572 

20573 

20574 

20575 

20576 

20577 

20578 

20579 

20580 

20581 

20582 

20583 

20584 



.TOC " Decimal string : ADDP4, ADDP6. SUBP4, SUBP6" 
.•ROUTINE TO ADD OP SUBTRACT TWO PACKED STRINGS. WITH 4 OR 6 OPERANDS. 

ALGORITHM: 

1. THE SPECIFIERS ARE EVALUATED. AND THE REGISTERS ARE INITIALIZED 
STARTING AT "ADS.IN". FIRST PART DONE-FLAG IS SET ("ASI6"). 

NOTE THAT THE CODE IS SHARED BETWEEN THE FOUR INSTRUCTIONS. 

AND ONLY WHEN NECESSARY ARE DIFFERENT PATHS TAKEN BY 

BRANCHING ON IR<0> (4 OR 6 OPERANDS) AND STATE<3> (ADD/SUBTRACT). 

2. THE MAIN LOOP STARTS AT "ADS. EN". AND CONSISTS OF 
SEVERAL STEPS: 

A. READ LONGWORD OF 1. STRING ("ASO"). 
USING 'KEAD-BCD'-SUBROUTINE. 

B. READ LONGWORD OF 2. STRING ("AS1"). 
USING *READ-BCD"-ROUTINE OR * READ-BCD-WI TH 
WRITE-CHECK'-SUBROUTINE. DEPENDING ON 
NUMBER OF OPERANDS 

C. IF THIS IS FIRST PASS THRU THE LOOP, THE SIGN-NIBBLES 
ARE TESTED. AND USED TO DETERMINE WHETHER AN ADD OR 
SUBTRACT SHOULD BE DONE CTIRST.ADDSUB"). 

D. THEN THE ACTUAL ADD ("ADD1") OR SUBTRACT ("SUB1") 
TAKES PLACE. 

E. THE RESULTING LONGWORD IS WRITTEN INTO THE 
DEST-STRING. USIN6 'URNE-BCD* '-SUBROUTINE ("AS3"). 

F. ALL THE REGISTERS ARE UPDATED. I.E. ADDRESSES 
ARE DECREMENTED. AND LENGTHS ARE INCREASED ("AS4"). 

G. A TEST IS MADE FOR OVERFLOW ("AS8"). 
THIS TEST IS QUITE COMPLEX BECAUSE WE MAY BE DOING 
THE SUBTRACTION THE WRONG WAY. (I.E. SUBTRACTING 
A LARGER NUMBER FROM A SMALLER ONE) IN WHICH CASE THERE 
WOULD BE NO OVERFLOW IF LEFT-OVER DIGITS ARE ALL 9"S. 

3. AFTER REACHING THE END OF ALL STRINGS. 
WE LOAD THE GENERAL REGISTERS AND SET THE CONDITION 
CODES ("ASF1"). 

A CHECK IS MADE TO SEE IF THERE IS A BORROW 
OUT OF THE LAST DIGIT. IN WHICH CASE THE DEST-STRING 
NEEDS TO BE NEGATED ('NEGATE"). 

4. IF A FAULT OR INTERRUPT HAPPENS DURING THIS INSTRUCTION, 
THE CURRENT STATE OF THE OPERANDS ARE BACKED UP IN THE 
GENERAL REGISTERS ("ADS .MEMORY. FAULT"). 
THE INSTRUCTION IS RESTARTED AT "ADS. EN' . 



ZZ-ESOAA-124.0 ; DECMAL.MIC C600.12043 
P1U124.MCR 600.12043 MICR02 1L(03) 

DECMAL.MIC C600.12043 Decimal string 



n 10 

Decimal string K-Jan-82 Fiche 
H-Jan-82 15:30:16 VAX11/780 Microcode 
: ADDP4, ADDP6. SUBP4, SUBP6 



3 Frame M10 Seguence 541 

: PCS 01, FPLA OE, WCS124 Page 



U 03CA. 0803,6030, C180,3D80,0000.037E 



U 03DA, 0019,2035,A180.F800,0050,047E 



U 03FA, 0803, 7B3CC 580, 3D88, 0000, 01 8D 



20585 
20586 
20587 
20588 
20589 
20590 
20591 
20592 
20593 
20594 
20595 
20596 
20597 
20598 
20599 
20600 
20601 
20602 
20603 
20604 
20605 
20606 
20607 
20608 
20609 
20610 
20611 
20612 
20613 
20614 
20615 
20616 
20617 
20618 
20619 
20620 
20621 
20622 
20623 
20624 
20625 



STORAGE: 

R0-R5 ARE USE;* TO HOLD LENGTHS AND ADDRESS. 

RC7 IS USED FOR OVERFLOW. 

RC6 IS USED TO HOLD FIRST OPERAND.UHILE READING SECOND 

DST-LENGTH IS SAVED IN R15 IN CASE STRING HAS TO BE NEGATED 

OR SIGN CHANGED 

MNEMONICS AND OPCODES FOR THE 4 INSTRUCTIONS ARE: 
ADDP4.20 
ADDP6.21 
SUBP4.22 
SUBP6.23 

CCK/INST.DEP CLOCKS THE C-filT IN THE PSL FROM ALU-CARRY, 
CLEARS V, LEAVES Z AND C UNCHANGED 
ALU/INST.DEP IS "A-fl-BORROW 

STATE-REGISTER: 



INTR: 



OVFL: 



ALL-9 
0=9* S 
1= 



NEGATE 



ADD/ 
SUB 



1.TIM 



SGN: 



CARRY: 



3CA: 

ADS. IN: .-ENTER HERE FROM C-FORK, WITH LENGTH IN Q,ADDRESS IN D 



3DA: 



3FA: 



ALU Q. OXTCyORDJ ,RCCT03_ALU, 
IDCT03 D,D ALU, 
CALL.J7SPEC 



ALUJ3.AND.KC.FFE03, 
NfcZ.ALU.VJCJ),CALL,J/ASPC 

• 

ALU O.OXTCWORD3,RCCT13 ALU, 

IDCT13 D, 

D ALU, TRO?, J /ADS. 11 



SAVE LENGTH IN RC 
SAVE ADDRESS IN IDCT03 
EVALUATE 2. LENGTH 



STRIP OFF HIGH BITS 
EVALUATE 2. ADDRESS 



SAVE 2. LENGTH 
SAVE 2. ADDRESS 
2 OR 3 OPERANDS? 



540 



U 018D, 001F,2008,1980,FAF8,1404,6BBE 
U 018F. 0019,0035 ,A180,F800.0030,037E 
U 019F. 0803,403C,1980,F998,1404,6590 

U 0590, 061F,2009,D180,3EF8,0000,047E 

U 05F0, 001D,0010,D1FO,2EA8,0000,08BD 
U OBBD, 0C1F, 0008, 0180, FAAO, 0000, 08BE 



N 10 

ZZ-ESOAA-124.0 ; DECMAL.MC [600,12043 Decimal string 14-Jan-82 Fiche 

; P1U124.MCR 600,12043 MICR02 1L(03) 14-Jan-82 15:30:16 VAX11/780 Microcode 

; DECHAL.MIC £600,12043 Decimal string : ADDP4, ADDP6. SUBP4. SUBP6 

20626 =01101 .- BRANC H ON LOW BI T OF OP-CODE 

20628 ADS. II: STAT* KCZER03, 

20629 ALU 0-D-1,RCR153 ALU.L0N6, 

20630 J/ASI5 

20631 ; 

20632 =01111 ALU D.AND.KC.FFE03, 

20633 N , AUX.Z TST, 

20634 C *LL,J/S P£C 

20636 =11111 ALU D.0XTCUORD3, 

20637 RCCT33 ALU,D ALU. 

20638 STATEjttZEROl 

20639 =;END ; 

20640 =00***** 

20641 ALU O-D-1 ,RCR153 ALU, 

20642 DK/RlGHT, 

20643 IDCT43 D, 

20644 CALL,J7ASPC 

20646 =11*****' 

20647 ALU D+Q+1 ,R[R53 ALU, 

20648 Q IBCT43.J/ADS.I2 

20649 =;END ; 

20650 ADS. 12: ALU O-Q-1 ,DJJ,RCR43. ALU, 

20651 J/A5I5 

20652 ; 



3 Frar.s N10 Sequence 542 

: PCS 01, FPLA OE, WCS124 Page 541 



CLEAR STATE-REGISTER 
STORE NEGATIVE LENGTH 



TEST 2. LENGTH 
AND IT INTO Z-6IT 
EVALUATE 3. LENGTH 

0-EXTEND 3. LENGTH 
STORE IT IN RC3 AND D 
CLEAR STATE-REGISTER 



SAVE DST-LENGTH IN R15 
DIVIDE DST-LENGTH BY 2 
SAVE LENGTH 
EVALUATE DST-ADDRESS 



GENERATE HIGH DST-ADDRESS 
RETRIEVE DST-LENGTH 

INITIALIZE R4 WITH DST-LENGTH 
RETRIEVE LENGTH 



ZZ-ESOAA-124.0 ; DECMAL.MIC C600. 12043 
; PI W1 24. NCR 600-12043 MICR02 1LC03) 

; DECMAL.MIC [600.12043 Decimal string 



B 11 

Decimal string 14-Jan-82 

14-Jan-82 15:30:16 VAX11/780 Microcode 



: ADDP4, ADDP6, SUBP4, SUBP6 



U OBBE. 0019,0034 ,A180,F900,0030,08CO 
U OBCO, 0810,0038.C1FO,2COO,0000,08C1 
U 0BC1, 061F, 2008,0180, FA80,0000,08C2 

U 08C2, OO1D,0010,C5F0,2F88,0O0O,06C4 

U 0BC4, 0838,1A38,DB80,F800,0000.02E8 
U 02E8, 0000,003C,0180,F800,0000,0106 

U 02EC, 0013,0008.B580,3E90,2400,08C5 
J 0BC5, OC50,0038,01CO,F800,0000,08C6 

U 0BC6, " , \0010,0180,FA98,0000,02AB 



20653 ASI5: 

20654 

20655 

20656 

20657 

20658 

20659 

20660 

20661 

20662 

20663 

20664 

20665 

20666 

20667 

20668 

20669 

20670 

20671 

20672 

20673 

20674 

20675 =10** 

20676 

20677 

20678 

20679 ASJ6: 

20680 

20681 

20682 

20683 =;END 

20684 

20685 

20686 

20687 

20688 



ALU D.AND.KC.FFE03, 
N AMX.Z TST, 
Lt_RCCT03 



ALU LC,0_ALU, 
Q.IBCT03 



ALU O-D-1 ,RCR03_ALU.LONG, 
DK/RlGHT 



ALU JHQ+1. 

LC RCCT13&R1 ALU, 

QTDCT13 



ALU I KC.93,D„ALU.LEFT, 
SI/MUL-.PSL.CC? 

;10**- 
J/RSVOPR 

ALU O-LC-1 ,RCR23_ALU, 
IDLTPDA3 D, 
SET.FPO 



D_Q,ALU_LC,Q.ALU.RIGHT 

ALU D+Q+1 ,RCR33 ALU, 
J/A0S.EN 



Fiche 3 Frame B11 Seguence 543 

: PCS 01, FPLA OE, WCS124 Page 



CLOCIC DST-LENGTH 
AND IT INTO Z-BIT 
6ET 1. SRC-LENGTH 



D GETS 1. SRC-LENGTH 
Q GETS 1. ADDRESS 



STORE LENGTH IN R2 

DIVIDE BY 2 TO GET BYTE-COUNT 



GENERATE HIGH SRC-ADDRESS 

GET 2. LENGTH, STORE 1. ADDRESS 

GET 2. ADDRESS 



GENERATE ID-BUS- ADDRESS .13 

BRANCH ON PSL<Z> C AND V ARE CLEAR 
ILLEGAL STRING-LENGTHS 



LOAD FPDA WITH ADDRESS 13 
SET FPD-BIT OF PSL 



GET 2. LENGTH 



GENERATE HIGH 2. ADDRESS 
ENTER MAIN LOOP 



542 



U 02AA, 0040,0030, 18CO,FA00,0O84,6BCE 

U 02AB, 0840,803C,0180,FAOO,0010,092A 
U 02BA, 0040,003C,OCCO,FA10,0084,64CD 



ZZ-ESOAA-124.0 ; DECMAL.MIC C600,12043 
; P1U124.MCR 600,12043 MICRO? 1L 
; DECMAL.MIC [600,12043 Decimal string 



C 11 
Decimal string 14-jan-82 
MICRO? 1L(03) 14-Jan-82 15:30:16 VAX11/780 Microcode 



ADDP4. ADDP6, SU8P4, SU8P6 



U 092A, 0819,9815,OD80,F888,0010,OAF7 



U 092B, 0040,803C,C1C0.3E10,0010,093A 



U 093A, 0819,RB15,OD80.F898,0010.9AF5 



U 093B, 001F,1714,01DO,F800,01(K,6953 



20689 =0**10 ; 0**10 

20690 ADDSUB: ALU RCR03, 

20691 Q ACU.RIGHT,SI/ASHR, 

20692 StjCCZER03,CALL,J/REG.ADJ 
20693 

20694 ; 0**11 

20695 ADS. EN: ALU RCR03, 

20696 D ATU.RIGHT,BYTE,CLK.UBCC, 

20697 J7AS0 
20698 

20699 =1**10 ;1**1( 

20700 ALU RL"R23,QALU.RIGHT, 

20701 SI/*SHR,SC RL\33,J/ASF1 
20702 
2Q703 =;END 

LA RACR13, 

ALO D+KC.33, 

D AtU,CLK.UBCC,BYTE, 

ACU?,CALL,J/READO 



Fiche 3 Frame C11 Sequence 544 

: PCS 01, FPLA OE, WCS124 Page 



BRANCH ON SS FLIP FLOP 
FINISHED, SET CONDITION-CODES 
GET LENGTH 
CLEAR RO, LOAD R1 WITH ADDRESS 



ENTER LOOP HERE 
GET SRC-LENGTH 



PART OF FINISH-ROUTINE 

GET READY TO RESET REGISTERS 



543 ! 



20704 =10 

20705 ASO: 
20706 
20707 
20708 
20709 
20710 
207V, 
20712 
20713 
20714 

20715 =;END 

20716 =10 

20717 AS1: 
20718 
20719 
20720 
20721 

20722 AS2: 
20723 
20724 
?0725 



;11- 

IDfTOJ D, 

ALU.RCR2J ,Q ALU.RIGHT , 

CLK.UBCCBYTE 



;1 

LA RACR33 , ALU Q+KC . 33 , 

D *LU, CLK.UBCt\BYTE , 

ACU?,CALL,J/READOO 

FE KC.83, 

ALD 0+Q,QK/DEC.CON, 

STATE3-0?, 

J/AS20 



GET 1. ADDRESS 
INCREMENT LENGTH 
CLOCK IT 
READ A LONG-WORD 



SAVE DATA IN IDCT03 
GET 2. SRC-LENGTH 



GET ADDRESS, TEST LENGTH 
READ A LONGWORD OF 2. OPERAND 

FOR USE IF 1. TIME 
BRANCH ON 1 .TIME, ADD/SUB 



U 0953, 0003,093C, C1F0,2C00,1450.6942 



U 0957, 081D,OOK,C1FO,2COO,0000,08C8 



U 095B, 0O03,093C,C1F0,2C00, 1450,6942 



U 095F, COOO,003C,C1F0,2C00,000O.0BC9 



ZZ-ESOAA-124.0 ; DECMAL.MIC C600, 12043 
P1W124.MCR 600,12043 MICR02 1L<03) 

DECMAL.MIC [600,12043 Decimal string 



D 11 
Decimal string 14-Jan-82 Fiche 

14-Jan-82 15:30: i6 VAX11/780 Microcode 
: ADDP4, ADDP6, SUBP4, SJ6P6 



20726 
20727 
20728 
20729 
20730 
20731 
20^32 
20733 
20734 
20735 
20736 
20737 
20738 
20739 
20740 
20741 
20742 
20743 
20744 
20745 



•=0011 
AS20: 



AS21 



=;END 



; 001 1 

QIDCT03. STATE FE, 
ACUJKA) ,NftZ ALUVftC 0, 
IR2-1?, 
J/FIRST.ADDSUB 

;0111- 

ALU JHQ,D ALU,L0NG, 

Q_l5CT03,j7ADD1 

C IDCT03, STATE FE, 
ACUJ)(A>,NftZ AEU.VfcC 0, 
IR2-1?, 
J/FIRST.ADDSUB 



;1111 

Q IDCT03, 
J7SU31 



3 Frame D11 Sequence 545 

: PCS 01, FPLA OE, WCS124 Page 



BR ON 1TIME fc A/S BITS/STATE 

GET FIRST OPERAND, INITIALIZE STATE 

SET Z-BIT, CLEAR C-8IT 

TEST FOR ADD/SUB 



ADD THE 6'S TO OPERAND 
GET FIRST OPERAND 



GET FIRST OPERAND, INITIALIZE STATE 
SET Z-BIT, CLEAR C-6IT 
TEST FOR ADD/SUB 



GET 1. OPERAND 



544 



ZZ-ESOAA-124.0 ; DECMAL.MIC C600,12043 
; P1U124.MCR 600.12043 MICR02 1L(03) 

DECMAL.MIC C600.12043 Decimal string 



U 0BC8, 081D,1B2C.01DO,F800,0070,096D 



U 0BC9, 081D,1BOC,01DO,F800,0070.096D 



U 096D, 081D,0000,0180,F800,0000,0140 



U 096F, 081D,0000,0180,FA20,0000,OBCA 



E 11 

Decimal string 14-Jan-82 Fiche 3 Frame E11 Seguence 546 
H-Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01, FPLA OE, WCS124 Page 
: ADDP4, ADDP6, SUBP4, SU8P6 



545 



U OBCA, 0000,003C,0180,F8A8.0000,0140 



U 0140, 00OC,8039.65C0,F800,5414,4C6B 



20746 
20747 
20748 
20749 
20750 
20751 
20752 
20753 
20754 
20755 
20756 
20757 
20758 
20759 
20760 
20761 
20762 
20763 
20764 
20765 
20766 
20767 
20768 
20769 
20770 
20771 
20772 
20773 
20774 
20775 
20776 
20777 
20778 
20779 
20780 
20781 
20782 
20783 



add1: alu jhopsl.c, 
d_aCu,qk/dec.con, 
set. cc (long), 

I R07.J/ADD2 
SUB1: ALU DCINST.DEP3Q, 

D aCu.qk/dec.con, 

SET. CC (LONG), 
I R0?,J/AOD2 

=1101 -BRANCH ON LOU BIT OF OP-CODE 

;1101 — 
ADD2: ALU D-Q,D ALU,J/AS3 



ADD THE TWO OPERANDS 

GENERATE DECIMAL CONSTANT 

LOAD PSL CARRY BIT FROM ALU RESULT 

TEST FOR 4 OR 6 OPERANDS 

INST-DEPENDENT SUBTRACT WITH BORROW 

D GETS RESULT, Q GETS 6*S 

CLOCK CARRY-BIT 

TEST FOR 4 OR 6 OPERANDS 



DECIMAL ADJUST RESULT 



*********************************************** 

* Patch no. 025, PCS 096D trapped to WCS 115C * 

*********************************************** 



=;END 



;1111 

ALUJMJ,D_ALU, 
LAB.RCR43 



DECIMAL ADJUST RESULT 
6 OPERANDS 



*********************************************** 

* Patch no. 069, PCS 096F trapped to WCS 118F * 

*********************************************** 



DC.PA.69: 

LA_RACR53,J/AS3 
=100**** 
AS3: 



STATE STATE.ANDNOT.KC. 103, 
INTRPT. STROBE, 
ALU_LB,Q_ALU,8YTE, 
CLK.U3CC,CALL,J/WRITE 



SAVE A CYCLE BY MERGING THIS 



CLEAR NEGATE-BIT OF STATE 
STOBE INTERRUPTS FOR LATER TEST 
GET DST-LENGTH 
WRITE DST-LONGWORD 



ZZ-ESOAA-124.0 ; DECMAL.MIC C600, 12043 
; P1W124.MCR 600-12043 MICR02 1L(03) 
; DECMAL.MIC C600,12043 Decimal string 



F 11 
H-Jan-82 



Decimal string 14-Jan-BZ Fiche 5 Frame Fll seguei 
K-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01. FPLA OE, WCS124 



U 0160, 0F0C,0E39,19C0,FA00,0084,6C26 
U 0170. 0018.0000.1180.F8E8.0080.C446 

U 0446. OOOC.OC39.01CO.FA10.0000.0C26 

U 0456. 0018.1800,1 180.FA98.1404.21AD 

U 01AD. 0000.1 73C. 0180, F800.0000. 0977 
U 01AF, OOOC,0039,01CO.FA20,0080.CC26 
U 01BF, 0018,1700,1 180,FAA8,0000,0977 



Fiche 3 Frame F11 
Micr 
: ADDP4, ADDP6, SUBP4. SUBP6 

.•RETURN HERE AFTER WRITING D IN DST-STRING 



Sequence 547 



Page 546 



20784 
20785 

20786 =110**** 

20787 AS4: SC KCZER03,LAB RCR03.Q LB. 

20788 DO. 

20789 BEN/INTERRUPT, 

20790 CALL.J/UPDATE 

20792 =111****' 

20793 ALU LA-KC.43.SC SC+1, 

20794 R(Sl) ALU.L0N6 

20795 =;END 

20796 =0**** 

20797 DC.PA.25: 
20798 

20799 LAB RCR23,Q LB, 

20800 CALC.J/UPDATE 

20801 ;1****- 

20802 RCR33 LA-KC.43, 

20803 STATElSTATE.0R.KC.43. 

20804 IRO? 

20805 =;END 

20806 =01101 .-BRANCH ON LOW BIT OF OP-CODE 

20807 ; 01 101 

20808 STATE3-0?.J/AS8 

20809 ;01111 

20810 LAB RCR43.Q LB.SC SC+1. 

20811 CALC, J /UPDATE 

20813 ' RCR53 LA-KC.43.LON6, 

20814 STATE3-0?,J/AS8 

20815 =;END ; 



GET FIRST LENC H 

CLEAR LENGTH-SUM 

TEST FOR INTERRUPT REQUESTS 

UPDATE RO AND R1 



UPDATE SRC. 1 -ADDRESS 



UPDATE R2 AND R3 



SRC.2-ADDRESS 
SET 1.TIME BIT 
TEST 2/3-OPERANDS 



TEST FOR ADD/SUB 
UPDATE DST LENGTH 



UPDATE DST ADDRESS 
TEST FOR ADD/SUB 



6 11 
ZZ-ESOAA-124.0 ; DECMAL.MIC C600.12043 Decimal string 14-Jan-82 
; P1W124.MCR 60OJ2043 MICR02 1L(03) 
; DECMAL.MIC C600,12043 Decimal string : ADDP4, ADDP6, SUBP4, SUBP6 



g 14-Jan-BZ Fiche 3 Frame G11 Seguence 548 
H-Jan-82 75:30:16 VAX11/780 Microcode : PCS 01, FPLA 0E, WCS124 



Page 547 



U 0977, 0000,123C,0180,F800,0000,02AA 

U 097F, 001F,1B14,01D0.F938.0081,0983 

U 0983, 001 1,221 4,01 CO,F800,0000,OC1 5 
U 0987. 0000,123C,0180,F800,0000,02AA 
U 098B, 0000,123C,0180,F800.0000,02AA 

U 0C15, 0001,2008,05DO.F800.0014,6BCC 

U 0C17, 0000, 123C, 7580, F800,1 404, 22AA 
U 08CC, 081D,0300,0180,F800,0000,07F8 

U 07F8, 0000, 123C, 7580, F800,1 404, 22AA 
U 07FA, 0000,123C,0180.F800,0000,02AA 



. BRANCH ON ADD/SUB-BIT OF STATE 

; TEST FOR END OF ALL OPE&ANDS 



20816 =0111 

20817 AS8: 
20818 
20819 
20820 
20821 
20822 

20823 =;END 
20824 

20825 =0011 
20826 
20827 
20828 
20829 
20830 
20831 
20832 
20833 

20834 =;END 
20835 

20836 =101 

20837 AS9: 
20838 
20839 
20840 
20841 
20842 
20843 

20844 =;END 

20845 CHECK . 9 : ; 

20846 ALU D-Q,D ALU,C31? 
20847 

20848 =0* ;0* ; BRANCH ON ALU C31 

20849 STATE_STATE.OR.KC- 203, ; NO LONGER ALL 9*S 

20850 EALU?,J/ADDSUB 
20851 

20852 ; 1 * ; 

20853 EALU?,J/ADDSUB ; RESTART LOOP 

20854 =:END 
20855 

20856 ; *********************************************** 

20857 ; * Patch no. 089, PCS 07FA trapped to WCS 1199 * 

20858 ; ***************?.******************************* 



;0111 

EALU?,J/ADDSUB 

LC RCCT73, 

ALO 0+Q,Q DEC. CON, 

SC.PE.ALU? 



;0011 

Q Q+LC, 
R0R?,J/AS9 

;0111- 
EALU?,J/ADDSU8 

;1011 

EALU?,J/ADDSUB 



;101 

ALU Q-MASK-1 ,Q DEC.COM, 
EALO KC.13, 
CLK.0BCCJ/CHECK.9 

STATE STATE. OR. Kf. 20], 
EALU?,J/ADDSUB 



GET OVERFLOW DATA 

GET READY FOR OVERFLOW TEST 

TEST FOR END OF DST 



BR ON ALU<NfcZ>, ON DST LEN AFT UPDATE 
CHECKING FOR ALL 9*S IN RC 7 
TEST FOR BORROW 



NO OVERFOLW YET 

GO TO BEGINNING OF LOOP 



BRANCH ON PSL C-BIT 

GET MASK BIT FOR ADDING TO OVERFLOW 

CLEAR EALU CC 



SET N0T-ALL-9-BIT 

DECIMAL ADJUST (NO NEED), TEST CARRY 



ZZ-ESOAA-124.0 ; DECMAL.MIC C600, 12043 
; P1U124.MCR 600.12043 MICR02 1LC03) 
; DECMAL.MIC C600. 12043 Decimal string 



H 11 
14-Jan-82 



Decimal string 14-Jan-82 Fiche 3 Frame H11 Sequence 549 

14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01. FPU 0E, WCS124 Page 548 

: ADDP4, ADDP6, SUBP4. SUBP6 



U 0942, 0C19,OF24,61C0,F800,1400.494A 
U 0943, OC19,OF24,61CO,F800,0000,094A 

U 094A, 0819,0F24,6180,F800,0000.096A 
U 094B, 0000,OF3C,0980,F800,1404,2962 

U 0962, 0319,0024,6180,F800,1400,896A 
U 0963, 0819,0024,6180,F800,0000,096A 

U 0556, 0810,0014, C1FO,2COO,0000,08C8 

U 055E, 0001, 2014, C1F0,2C0O,OO70,08C9 



U 096A, 0C1F,1 714, C1D0,3C00,0081, 0556 
U 096B, 0000,003C, 0180,F800,1400.896A 



20859 
20860 
20861 
20862 

20863 =10 

20864 ;1 

20865 FIRST.ADDSUB: 



; ENTER HERE AFTER READING FIRST TWO OPERANDS 
;ADD/SUB-BIT IS SET TO REFLECT OP-CODE 



.-BRANCH ON ADD/SUB BIT OF OP-CODE 



20866 
20867 
20868 
20869 
20870 
20871 
20872 
20873 

20874 =;END 

20875 =10 
20876 

20877 FIRST. 0: 

20878 

20879 

20880 

20881 

20882 

20883 =;END 

20884 =10 
20885 
20886 
20887 
20888 
20889 
20890 

20891 =;END 

20892 =011* 
20893 

20894 FIR1: 
20895 
20896 
20897 
20898 
20899 
20900 

20901 =;END 

20902 =10 
20903 
20904 P2: 
20905 
20906 
20907 
20908 
20909 

20910 =;END 
20911 
20912 



ALU_D.ANDNOT.KC.FJ, 

D O.Q.ALU, 

STATE STATE .ANDNOT.FE, 

BCDSGR?,J/FIRST.O 

;11- 

ALU D.ANDNOT. KC.FJ, 

D .0,0 ALU, 

B EDSGR?,J/FIRST.0 

BRANCH ON BCD-SIGN 



ALU D. ANDNOT .KC.FJ ,DJ\LU, 

BCDSGN?,J/P2 

;11- 

STATE STATE. OR.KC. 23, 

B CDSGW? 

BRANCH ON BCD-SIGN 
10- 



ALU D.ANDNOT.KC.FJ.D ALU, 
STA TE.STATE»FE,J/P2 

ALU D.ANDNOT.KC.FJ.D ALU, 
J/P2 

BRAN CH ON ADD/ SUB-BIT OF STATE 

ALU D+Q,D.ALU,Q IDCT03, 
J/ADD1 

ALU.Q+MASIC, 
SET. CC (LONG), 
Q IDCT03, 
J7SUB1 



BRANCH ON BCD-SIGN 

IDCT03 D.D Q, 
ALU 0+3,0 JSEC. CON, 
SC JFE. 
S1*TE3-0?,J/FIR1 

; ! ! 

STATE STATE+FE,J/P2 



STRIP OFF SIGN-NIBBLE 
CLEAR ADD/SUB-BIT OF STATE 



STRIP OFF SIGN-NIBBLE 
SUAP THE OPERANDS 



STRIP SIGN-NIBBLE 
POSITIVE 

NEGATIVE 

TEST THE OTHER SIGN 



STRIP SIGN-NIBBLE 
COMPLEMENT ADD/SUB 

STRIP SI6N-NIBBLE 



START ADD-OPERATION 



rORCES A CARRY 

SET C-BIT 

GET 1. OPERAND 



SAVE STRIPPED OPERAND IN TO 
GET READY FOR ADD 

TEST ADD/SUB BIT 

COMPLEMENT ADD/SUB 



U 0C26, 0019,2214,01 C1,F8E8,0090,CC35 
U 0C27, 0000,003C,4180,F800,1404,2013 



ZZ-ESOAA-124.0 ; DECMAL.M1C C600.120AD 
P1U124.MCR 600.12043 MICR02 1L(03) 
DECMAL.MIC C600.12043 Decimal string 



I 11 
14-Jan-82 



Decimal string 
H-Jan-82 15:30:16 VAX11/780 Microcode 
: ADDP4, ADDP6, SUBP4, SUBP6 



Fiche 3 Frame 111 



PCS 01, FPLA 0E, WCS124 



Sequence 550 



Page 549 



U 0C35, 0810,0032,0581, F868,1404,4010 



U 0C37, 081D, 0032,0581, F868,1404, 2010 



20913 

20914 

20915 

20916 

20917 =110 

20918 

20919 UPDATE: 

20920 

20921 

20922 

20923 

20924 

20925 

20926 

20927 

20928 

20929 

20930 

20931 

20932 

20933 

20934 

20935 

20936 

20937 

20938 

20939 

20940 

20941 =;END 



ROUTINE TO UPDATE POINTERS IN REGISTERS ADDRESSED BY SC 
UPDATES CARRY-BIT OF STATE FRM THAT OF THE PSL-CARRY 



=;END 
=101 

UPDATE. 1 



BR ANCH ON INTERRUPT REQUEST BI T 

ALU Q+KC.83,R(SOJ\LU,LONG. 
Q ACU.SC.SC-H ,CUC.UBCC. 
S5N/L0AD.SS,R0R?, 
J/UPDATE.1 

STATE.STATE .OR.KC .803 . 

J /ADS. MEMORY. FAULT 

BRANCH ON C-BIT OF PSL 
101- 



STATE STATE. ANDNOT.KC. 13, 

LAB RISC) , 

D D.OR.Q, 

SGN/LOAD.SS, 

RETURN10 

STATE STATE.0R.KC.13, 
LAB RISC) , 
D D.OR.Q, 

sgn/load.ss, 

RETURN10 



(ADD/SUBTRACT ONLY) 

UPDATE LENGTH 
POINT TO ADDRESS 
TEST CARRY-BIT 



SET INTERRUPT-BIT OF STATE 
JOIN FAULT-ROUTINE 



CLEAR CARRY-BIT OF STATE 
GET ADDRESS 
TEST FOR NEGATIVE 
LOAD SS WITH ALU<15> 



SET CARRY-BIT OF STATE 
GET ADDRESS 
TEST FOR NEGATIVE 
LOAD SS WITH ALU<15> 



U OBCD, 0O4O,OO3C,00C0,F868,0OOO.0BCE 
U OBCE. 0003,003C, 0180,F8E8,0080.CBDO 
U 0800, 0002,A03C,01CO,F868,0000,08D1 

U 0BD1. 001C,0016,01CO.F8E8,0000,0010 



ZZ-ESOAA-124.0 ; DECMAL.MIC C600.12043 
; P1W124.MCR 600.12043 MICR02 1L<03) 
; DECHAL.MIC [600, 12043 Decimal string 



J 11 
14-Jan-82 



Decimal string 14-Jan-82 Fiche 3 Frame J11 Seguence 551 
14-Jan-82 15:30:16 VAXH/780 Microcode : PCS 01, FPLA OE, WCS124 
: ADDP4, ADDP6. SUBP4, SUBP6 



Page 550 



U 08D2, 0058,181C,48CO,FA78,0000,098D 

U 0980, 0818,0038,8580,F898,0000,08D3 

U 098F, 0818,0038,8580,F8A8,0000,08D3 
U 0803, 001 C,0008,0180,F800, 0200, 08D4 

U 0804, 0018,3038,1980,3000,0050,0829 



20942 REG. ADJUST: 

20943 .-ROUTINE WHICH USES LENGTH IN REGISTER(SC) TO 

20944 .-RESET ADDRESS IN REGISTER(SC+1). 

20945 ; 

20946 LAB R(SC).ALU/A,AHX/LA, 

20947 Q.ACU.RIGHT.SI/ASHR 

20948 ;= 

20949 REG.ADJ: ALU 0(A). R(SC)_ALU, 

20950 LONG.SC.SC+T 
20951 



6ET LENGTH 

SIGN-EXTEND. DIVIDE BY 2 



CLEAR LENGTH, GET ADDRESS 



SIGN-EXTEND LENGTH 
SAVE STRING-ADDRESS 



20952 REG. AD: LAB.R(SC). 

20953 ALU_Q.SXTLBYTE3,Q ALU 

20954 .— = = 

20955 ALU LA*Q,R(SC> ALU.LONG. 

20956 Q ALU 

20957 RfTURNlO 

20959 ' ~~~ ""' 

20960 

20961 SGN. CHANGE: .-ROUTINE TO CONVERT A -0 STRING TO A +0 STRING. 

20962 .-EXPECTS LENGTH TO BE IN R15, ADDRESS IN R3 OR R5, 

20963 .-DEPENDING ON LOW BIT OF OPCODE. 
20964 
20965 
20966 
20967 
20968 

20969 =1101 
20970 

20971 SGN.C1: LA RACR33, 

20972 D KC.C3, 

20973 J7SGN.C2 

20974 ; 

20975 SGN.C10: 

20976 LA RACR53. 

20977 KC.C3 

20978 ;= 

20979 SGN.C2: ALU LA-Q-1 , VAX/LOAD 
20980 

20981 DC. PA. 79: 

20982 ; 

20983 ALU KCZER03 ,NfcZ ALU.VfcC 0, 

20984 CACHE DCBYTE3,J7FINI8 

20985 ; = 



ALU RCr < 53.0RN0T.KC.FF3. 
Q ALURiGHT,SI/ASHR, 
iRO? 



BRANCH ON LOW BIT OF OPERAND 



GET LENGTH. DIVIDE BY 2 
TEST 2/3-OPERANDS 



GET ADDRESS 
GET DATA 



GET 3-OPERAND DST-ADDRESS 
GET DATA 

GET ADDRESS OF SIGN-BYTE 



SET Z-BIT, CLEAR N-8IT,C,V 
WRITE +0 



ZZ-ESOAA-124.0 ; DECMAL.MIC C600.12043 
; P1VTI24.MCR 600.12043 MICR02 1L(03) 

; DECMAL.MIC C600.12043 Decimal string 



K 11 
14-Jan-82 



Fiche 3 Frame K11 



Decimal string _._ . 

14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA OE, WCS124 
: ADDP4, ADDP6, SUBP4. SUBP6 



Sequence 552 



Page 551 



U 0C45, 0840,1B3C,3080,FA78,1414,499D 



U 0C47, 0840,1B3C,6480,FA78, 1414,2990 



U 099D, 0000.003C,0180,F898,0000,0970 
U 099F, 0000,003C,0180,F8A8,0000,0970 



U 0970, 0819,9B15,OD80,F800,0010,0817 



U 0971, 004C,1B38,10CO,F800,1404,4979 



U 0973, 0019,1724,61CO,F800,0000,09AB 



U 09AB, 081F,0000,01DO,F800,0070,OBD5 



U 09AF, 081F,200C,01DO,F800,0070,08D5 



U 0BD5, 081D,0000,0180,F800, 0000,0148 



20986 .-ROUTINE WHICH NEGATES STRING. POINTED TO BY R2 OR R4, WITH LENGTH IN R15. 

20987 ;USED WHEN A SUBTRACT RESULTS IN A BORROW OUT OF THE MOST SIGNIFICANT DIGIT. 
20988 



BRANCH ON ALL 9'S BIT OF STATE 



.•BRANCH ON 2/3-OPERAND BIT OF OP-CODE 
;1101 



20989 =101 
20990 

20991 NEGATEO: 

20992 STATE STATE .ANDNOT.KC.403, 

20993 ALUJtrR153.D ALU.RIGHT.SI/ASHR, 

20994 CLK. UBCC, LONG, IRO?. 

20995 J/NEGAO 

20996 ; 1 1 1 

20997 NEGATE: STATE STATE. OR.KL". 103, 

20998 ALU_RtR153.D ALU.RI6HT,SI/ASHR, 

20999 CUC.UBCCLONG.IRO?, 

21000 J/NEGAO 
21001 

21002 ; *********************************************** 

21003 ; * Patch no. 093, PCS 0C47 trapped to WCS 119D * 

21004 ; *********************************************** 

21005 

21006 =;END 

21007 =1101 
21008 

21009 NEGAO: 
21010 
21011 

21012 =;END 

21013 =00 

21014 NEGA1: 
21015 
21016 
21017 
21018 
21019 
21020 
21021 
21022 
21023 
21024 =11 
21025 

21026 =;END 

21027 =1011 
21028 
21029 
21030 
21031 
21032 
21033 
21034 
21035 



SET NEGATE-BIT OF STATE 

DIVIDE LENGTH BY 2 

TEST FOR 4 OR 6 OPERANDS 



SET NEGATE-BIT OF STATE 

DIVIDE LENGTH BY 2 

TEST FOR 4 OR 6 OPERANDS 



LARACR33.J/NEGA1 

;1T11- 

LA.RACR53 

* 

ALU JM-KC.33, 

D AtU.CLK.UBCCBYTE, 

AtU?, 

CAL L,J/READOW 

STATE STATE .ANDNOT.KC. 43, 
ALU LB,Q ALU.RIGHT,SI/ASHR. 
IR07,J/NCGA5 

. ! ! 

ALU D.ANDN0T.KC.F3.0 ALU, 
STATE3-0? 



BRANCH ON 1. TIME BIT OF STATE 

.1011 

ALU O-Q.D.ALU, 

DEC.C0N,SET.CC(L0NG>, 

J7NEG.ADJ 

ALU.0CINST.DEP3D,D.ALU, 
SET.CC (LONG), 
Q.DEC.CON 



4 OPERANDS 
6 OPERANDS 

INCREMENT LENGTH 

TEST LENGTH 

READ WITH WRITE-CHECK 
o 

CLEAR 1.TIME BIT OF STATE 
TEST OPC-CODE FOR 4/6 OPERANDS 



STRIP OFF SIGN-NIBBLE 
TEST 1.TIME BIT 



21036 

21037 NEG.ADJ : ; 

21038 ALU D-Q.D.ALU, 

21039 J/NEGA10 



NEGATE DATA (BINARY) 

CLOCK C-BIT (OR BORROW, RATHER) 

TEST ALL 9'S BIT OF STATE 

NEGATE BINARY WITH BORROW 
GET BORROW IF ANY 
GENERATE DECIMAL CONSTANT 



DECIMAL ADJUST 



ZZ-ESOAA-124.0 ; DECMAL.MIC C600.12043 
; P1W124.MCR 600-12043 PIICR02 1L(03) 

; DECMAL.MIC C600.12043 Decimal string 



I 11 
Decimal string H-Jan-82 

H-Jan-82 15:30:16 VAX11/780 Microcode 
: ADDP4, ADDP6, SUBP4. SUBP6 



U 0148. 0OOC .0039.01 CO.F800.0010.0C6B 

U 0168. 0OOC.0238.05C0.F80O.1404.4C75 

U 0C75. 0019.3B14,0180,FAF8,0000.09BD 
U 0C77. 0019.3B14,0180,FAF8,1400,C9BD 

U 09BD. 0018.1600,1 180,FA98,1404,2C45 
U 09BF, 0018,1600,1 180,FAA8,1404.<?C45 

U 0979. 001C.1714,0180,FA98,0000.0261 
U 097B. 001C.1714.0180.FAA8.0000.0261 



21040 =10***** 

21041 NEGA10: Q LB.CLK.UBCC, 

21042 CAU.J/URITE 

21043 ; 

21044 =11***** 

21045 Q JJB. 

21046 STATE.STATE.ANDN0T.KC.13. 

21047 ROR? 

21048 =;END ; 

21049 =101 .-BRANCH ON PSL-CARRY-BI T 

21050 ;101 

21051 NE6A2: ALU Q+KC.83.RCR153.ALU, 

21052 IR0?,J/NEGA3 

21 053 ; 1 1 1 

21054 ALU Q+KC.83.RCR153.ALU, 

21055 STATE STATE+1 . 

21056 IR07.J/NEGA3 

21057 =;END 

21058 =1101 
21059 



Fiche 3 Frame L11 Sequence 553 

: PCS 01, FPLA OE, WCS124 Page 552 



CLOCK LENGTH 
WRITE OUT RESULT 



GET LENGTH 

CLEAR CARRY-BIT OF STATE 

TEST PSl-CARRY-BIT 



UPDATE DST-LENGTH 
TEST FOR 4/6 OPERANDS 

UPDATE DST-LENGTH 

SET CARRY-BIT OF STATE 

TEST FOR 4/6 OPERANDS 



BRANCH ON LOW BIT OF OPCODE 

21060 NE6A3: ALU LA-KC.43.RCR33 ALU.LONG, 

21061 STATE STATE. 0R.KC.?3, 

21062 STATE7-47.J/NEGATE0 

21063 ;1111 

21064 ALU_LA-Kt.43.RCR53.ALU.LONG. 

21065 STATE STATE. OR.KC.fcl. 

21066 STATE7-47.J/NE6ATE0 

21067 =;END ; 

21068 =01 .-BRANCH ON LOW BIT OF OP-CODE 

21069 ;01« 

21070 NEGA5: ALU LA-H3,RCR33_ALU, 

21 071 STATE3-0? , J /ASF4 

21072 ;11- 

21073 ALU LA+Q.RCR53 ALU, 

21074 STATE3-0?,J/ASF4 

21075 =;END ; 



UPDATE ADDRESS 
SET 1.TIH FLAG 
TEST ALL 9'S BIT 

UPDATE ADDRESS (3-OPERANDS) 
SET 1.TIM FLAG 
TEST ALL 9'S BIT 



LOAD R3 WITH LOW DEST-ADDRESS 
TEST ADD/SUB AND SIGN-BIT 

LOAD R5 WITH LOW DEST-ADDRESS 
TEST ADD/SUB AND SIGN-BIT 



ZZ-ES0AA-124.0 ; DECMAL.MC C600,12043 
P1W124.MCR 600-12043 MICR02 1L(03) 

DECMAL.MIC C600.12O43 Decimal string 



M 11 
14-Jan-82 



Decimal string 
14-Jan-82 15:30:16 VAX11/780 Microcode 
: ADDP4, ADDP6, SUBP4, SUBP6 



Fiche 3 Frame M11 



U 04CD, 0003,003D,1180,FA90,1404.48DO 
U 04DD. 0000.1B3C.0180,F800,0000.03ED 



U 03ED. 0840,173C,0080,FA78.0O70.0260 
U 03EF, 0040,003D,10CO,FA20.0084.6BCE 
U 03FF. 0840.173C,0080,FA78, 0070. 0260 

U 0260. 0003,163C,0180,F800,0030.0CA3 

U 0261. 0003,003C.3180,F800,1434,2CA7 
U 0262, 0000,1A3C,0180,F800,0000.09CB 

U 0263, 0000,1A3C.3180,F800,1404.29CB 

U 0268, 001D,2000,0980,F8E8,1474,2C47 
U 0269, 0003,163C,0180,F800.0030.0CA3 

U 026A. 001D,2000,0980,F8E8.1474,4C47 
U 026B, 0000,1A3C,0180,F800,0000,09CB 



21076 
21077 
21078 
21079 
21080 
21081 
21082 
21083 
21084 
21085 
21086 
21087 
21088 
21089 
21090 
21091 
21092 
21093 
21094 
21095 
21096 
21097 
21098 
21099 
21100 
21101 
21102 
21103 
21104 
21105 
211i>6 
21107 
21108 
211 (-9 
21110 
21111 
21112 
21113 
21114 
21115 
21116 
21117 
21118 
21119 
21120 
21121 
21122 
21123 
21124 
21125 
21126 



=0**** 
ASF1 : 



ALU 0(A) .RCR23 ALU. LONG- 
STATE STATE .ANDNOT . KC. 4 J , 
CALL,J7REG.AD 

IR0? 



=01101 .-BRANCH ON LOW BIT OF OPCODE 
ASF1.X: ;01101 

LAB.RCR1 53 .ALU LA,D ALU.RIGHT, 

SETTCC(LONG) .ST/ASHR, 

STATE3-07.J/ASF3 

ALU RCR43.Q ALU.RIGHT, SI/ASHR, 

SC RC.43. 

CACL,J/REG.ADJ 



=11111 



=;END 
=0*00 

ASF3: 



ASF4: 



=;END 



lab rcr1 53 .alu la.d alu.right, 

si/Jshr-set.ccTlongt, 

state3-0?,j/asf3 



;8-WAY BRANCH ON ADD/SUB-.SIGN-.AND CARRV-BITS OF STATE 

;0*00- 

ADD.POSITIVE.NO CARRY 
TEST OVERFLOW 



ALU 0<A) ,N AJW.ZTST, 
STA?E7-4?.J/ASFr 

; 0*01 

STATE STATE. 0R.KC.403, 
ALU OTA) ,N_A«X.Z_TST, 
J/A5F8 

; 0*10- 

PSL.CC?,J/ASF6 
;0*11- 



PCS 01, FPLA OE, WCS124 



CLEAR R2 

CLEAR 1. TINE BIT 

RESET R3 

TEST FOR 4 OR 6 OPERANDS 



GET DST-LENGTH 

TEST ADD/SUB-BIT 

GET DST-LENGTH 

RESET R5 

GET DST-REGISTER 
CLEAR CARRY 
TEST ADD/SUB-BIT 



Sequence 554 



Page 553 



STATE STATE. 0R.KC.403, 
PSL A Cf?,J/ASF6 

STATE_STATE.OR.KC. 23, 

ALU_Q-D,R(SC)_ALU, 

SET. CC (LONG), 

J/NEGATE 

;1*01- 

ALU 0(A) .NAMX.ZTST. 

STATE7-4?,J/ASFr 

; 1*10 

STATE STATE. ANDNOT.Kt. 23, 
ALU_Q-D,R(SC).ALU, 
SET. CC (LONG), 
J/NEGATE 

; 1 *1 1 

PSL.CC?,J/ASF6 



ADD, POSITIVE, CARRY 



ADD, NEGATIVE, NO CARRY 

ADD, NEGATIVE, CARRY 
TEST Z-BIT 

SUBTRACT ,POSI TIVE ,BORROW 
GET STARTING ADDRESS 
SET CARRY 



SUBTRACT, POSITIVE. NO BORROW 



SUBTRACT, NEGAT I VE, BORROW 
GET STARTING ADDRESS 
SET CARRY 



SUBTRACT, NEGATIVE.NO BORROW 



ZZ-ESOAA-124.0 ; DECMAL.MIC C60O,12043 
P1W124.MCR 600.12043 MICR02 1L(03) 

DECMAL.MIC C600, 12043 Decimal string 



U 09CB, 0018,9638,4180,F800,0050,OCA3 
U 09CF, 00O0J63C 01 80, F 800, 0000, OC 83 

U 0C83, 0003,003D,0180,F800,0050,OBD2 
U 0C87, 0003,003C, 01 80,F80O,2O30,0CA7 

U 0CA3, 001 F. 0014,01 80,F800,2070,082C 
U 0CA7, 001F, 0014, 31FO,2COO,0070, 0826 



N 11 
Decimal string 14-Jan-82 Fiche 3 

14-Jan-82 15:30:16 VAX1 1/780 Microcode : 
: ADDP4, ADDP6, SUBP4, SU3P6 



f-rame N11 Sequence 555 

PCS 01, FPLA OE, WCS124 Page 554 



21127 
21128 
21129 
21130 
21131 
21132 
21133 
21134 
21135 
21136 
21137 
21138 
21139 
21140 
21141 
21142 
21143 
21144 
21145 
21146 
21147 
21148 
21149 
21150 
21151 



=1011 
ASF6: 



=;END 
=611 



=;END 
=011 

ASF7: 



ASF8: 
=;END 



BRANCH ON PSL-Z-BIT 

1011- 

ALU KC . 803 ,N*Z ALU. VfcC_0,BYTE , 
STATE7-4?,J/ASF7 
;1111« 



STATE7-4? 



;BRANCH ON OVERFLOW-BIT OF STATE 

;011 

ALU 0(A) ,NftZALU. V6C.0, 

CAL CJ/SGN. CHANGE 

ALUJ)(A),N AMX.Z TST, 
CLR.FPD,J/A"SF8 



BRANCH ON OVERFLOW-SIT OF STATE 

ALUJ)+G,SET.CC(L0NG), 
CLR.FPD,J/FINI15 



;111- 

Q IDCCES3,ALU 0+Q, 

SET. CC (LONG) ,J7FINI5 



SET PSL-N-BIT 



CLEAR N,C,V-8ITS OF PSL 

MAKE STRING +0 RATHER THAN -0 

CLEAR N-PIT OF PSL 



CLEAR PSL CARRY-BIT 

JOIN COMMON FINISH-ROUTINE 



CLEAR CARRY-BIT 
LOAD TRAP-VALUE 



ZZ-ESOAA-124.0 ; DECMAL.MIC C600.12043 
P1W124.MCR 600.12043 MICR02 1L(03) 
DECMAL.MIC C600.120A3 Decimal string 



Decimal string 
H-Jan-82 75:30 



MULP 



B 12 
14-Jan-82 Fiche 3 Frame B12 Seguence 556 
16 VAX1 1/780 Microcode : PCS 01, FPLA 0E, WCS124 Page 



555 



21152 
21153 
21154 
21155 
21156 
21157 
21158 
21159 
21160 
21161 
21162 
21163 
21164 
21165 
21166 
21167 
21168 
21169 
21170 
21171 
21172 
21173 
21174 
21175 
21176 
21177 
21178 
21179 
21180 
21181 
21182 
21183 
21184 
21185 
21186 
21187 
21188 
21189 
21190 
21191 
21192 
21193 



.TOC 



Decimal string 



: MULP* 



.-MULTIPLY BCD-STRINGS 

ROUTINE TO MULTIPLY MULTIPLIER-STRING WITH MULTIPLICAND-STRING. 
STORING THE RESULT IN PRODUCT-STRING. 

; ALGORITHM: 

1. FIRST THE SPECIFIERS ARE EVALUATED AND STORED. VARIOUS REGISTERS 
ARE INITIALIZED, (ROUTINE 'MULP-INIT") 

2.THEN THE MULTIPLIER IS READ IN ITS ENTIRETY, AND STWED IN 
TEMPORARY REGISTERS RC<0-5>, 3 BYTES PR REGISTER (USING 
' T.OAD.MULTIPLIER' '-ROUTINE) . 

3. THE PRODUCT IS INITIALIZED TO ("MULSGN' '-ROUTINE). 
ACTUALLY, THE FIRST LONGWORD IS NOT CLEARED. 

4. STARTING AT THE LEAST SIGNIFICANT DIGIT, A BYTE IS READ FROM 
THE MULTIPLICAND STRING CMULR.1"). 

5. EACH RC-REGISTER IS MULTIPLIED BY 

THE PAIR OF DIGITS FROM MULTIPLICAND ("MULM"). 

6. THE RESULT IS ADDED TO THE PARTIAL PRODUCT-STRING, 
(USING 'njRAW '-ROUTINE). 

7. STEPS 4, 5 AND 6 ARE REPEATED UNTIL THE MULTIPLICAND-STRING 
IS EXHAUSTED, AT WHICH POINT THE GENERAL REGISTERS 

ARE RESET, AND THE CONDITION CODES ARE DETERMINED CMUL.FIN"). 

8. IF AN INTERRUPT OR MEMORY-FAULT OCCURS, THE CURRENT STATE 
OF THE INSTRUCTION IS SAVED IN GENERAL REGISTERS, 
CMULT.MEMORY. FAULT"). AND THE INSTRUCTION RESUMES WHERE 

IT LEFT OFF BY RESTORING THE REGISTERS C MULP. DIVP. RESTORE") 

OP-CODE IS '25" 
MNEMONIC IS 'MULP" 
INSTRUCTION FORMAT IS: 
opcode mulrlen.rw, mulraddr.ab, muldlen.rw, 

muldaddr.ab, prod I en. rw, prodaddr.ab 
INSTRUCTION DEPENDENT ALU FUNCTION IS "A-B-PSL. BORROW" 
INSTRUCTION DEPENDENT CC-CLOCKING IS Z.Z.N_N,V_0,C.ALU CARRYCUDT] 



ZZ-ESOAA-124.0 ; DECMAL.MIC C600.12043 
P1U124.MCR 600.1 20A3 MICR02 1L(03) 
DECMAL.MIC C600. 12043 Decimal string 



Decimal string 
H-Jan-82 15: 
: MULP 



C 12 
K-Jan-82 Fiche 
30:16 VAX11/780 Microcode 



3 Frame C12 Sequence 557 

: PCS 01, FPLA OE, WCS124 Page 556 



21194 
21195 
21196 
21197 
21198 
21199 
21200 
21201 
21202 
21203 
21204 
21205 
21206 
21207 
21208 
21209 
21210 
21211 
21212 
21213 
21214 
21215 
21216 
21217 
21218 
21219 
21220 
21221 
21222 



STORAGE ALLOCATION FOR MULTIPLV-INSTRUCTION. 

RC0-RC5 ARE USED TO STORE MULTIPLICAND. 3 BYTES EACH. 

RC6=RC-C0UNTER 

RC7-LAST WRITTEN LON6W0RD DURING FINISH. NEW PRODUCT DURING READS 

R0=HI6H NIBBLE OF MULTIPLIER-BYTE 

R1=ABSOLUTE PRODUCT-LENGTH, INIT. TO -LENGTH-1 

R2=MULTIPLICAND-LEN6TH. INIT. TO LENGTH/2 

R3=MULTIPLICAND-ADDRESS, INIT. TO HIGH ADDRESS 

R4=PRODUCT-LENGTH DURING EACH PASS, INIT. TO -LENGTH-1 

R5=PR0DUCT-ADDRESS DURING EACH PASS. INIT. TO HIGH ADDRESS ♦ 1 

IDCTOJ=NEXT DIGIT OF MULTIPLICAND 

IDCT2J=66666666 (DECIMAL CONSTANT) DURING MULTIPLICATION 

IDtT3J=ABSOLUTE PRODUCT-ADDRESS, INIT. TO HIGH ADDRESS+2 

IDCT43=ABSOLUTE PRODUCT-LENGTH, INITIALIZED TO -LENGTH-1 

IDCT6J=MULTIPLIER-ADDRESS. INIT. TO LOU ADDRESS 

IDCT73=MULTIPLIER-LENGTH. INIT. TO LENGTH 

IDCT83=HIGH LIMIT FOR RC-COUNT 

STATE-REGISTER IS USED FOR STATUS 

FE=CURRENT DIGIT 

SC.FE.R15.D.Q ARE SCRATCH-REGISTERS 

STATE-REGISTER BIT-ALLOCATION: 



INTRPT ;OVFLOW 



1.READ 



1. UR 



SIGN 



HI/LO 
DIGIT 



U 03CB, 0803, 603D.D98O.3COO. 0000,0376 
U 03DB, OC19,2034,A1EO.F9B0.0050.0131 

U 0131, 0843,603D,DD80,3D80,0000,047E 
U 0171, 0019,2034,6D80,F800.0030,OOAA 

U OOAA, OO1F,A015.198O,F988,1404,637E 
U OOBA, 0019,0035,A180,F800,0030,047E 
U OOFA, 0001, 3A3C,01B0,F800,0082, 0328 



ALU Q. 0XTCWORD3 ,D_ALU, 
IDCT63 D, 
CALL,J7SPEC 

ALU Q.AND.KC.FFE03, 
RCCT63 ALU, 
D Q,Q 5, 
n8Z.ATU.V8C 0,LONG 



D 12 

ZZ-ESOAA-124.0 ; DECMAL.MIC C600.12043 Decimal string 14-Jan-82 Fiche 

; P1W124.MCR 600,12043 MICR02 1L(03) 14~Jan-82 15:30:16 VAX11/780 Microcode 

; DECMAL.MIC C600,12043 Decimal string : MULP 

21223 3C8: 

21224 MULP. INI T: 

21225 .-ENTER HERE FROM \)P2 WITH M'PLIER 

21226 .-M'PLIER ADDRESS IN D. 
21227 
21228 
21229 
21230 
21231 

21232 3D8: 
21233 
21234 
21235 
21236 

21237 =01***** 

21238 IDCT73 D,D ALU.RIGHT, 

21239 ALU Q.OXTCQORDJ, 

21240 RCCTOJ ALU.RIGHT, 

21241 CALL,J7ASPC 
21242 

21243 =11***** 

21244 ALU Q.AND.KC.FFF03. 

21245 NjflX.Z TST 

21246 =;END ; 

21247 =010**1* 

21248 MUL.I1: STATEJCCZER03, 

21249 ALU Q.0XTCBYTE3+D. 

21250 RCCT13 ALU, 

21251 CALL.J7SPEC 

21252 ; 

21253 =011**1* 

21254 ALU D.AND.KC.FFE03, 

21255 N AMX.Z TST, 

21256 CALL,J/*SPC 

21257 ; 

21258 =111**1* 

21259 ALU Q,SC_ALU, 

21260 QK/RlGHT, 

21261 PSL. CC?,J/MUL. 12 

21262 =;END ; 



3 Frame D12 Seguence 558 

: PCS 01, FPLA OE, WCS124 Page 



-LENGTH IN Q, 



CLEAR HIGH WORD 

SAVE MULTIPLIER-ADDRESS 

EVALUATE M'PLICAND-LENGTH 

GET HIGH BITS OF LENGTH 
CLEAR OUT RC6 

SET Z-BIT (UNLESS ERROR) 



STORE MULTIPLIER-LENGTH 
CLEAR HIGH WORD OF LENGTH 
SAVE BYTE-COUNT 
EVALUATE M'PLICAND ADDRESS 



HIGH BITS OF MULTIPLICAND-LENGTH 
OR IT INTO Z-BIT 



INITIALIZE STATE-REGISTER 
GENERATE HIGH ADDRESS 
SAVE HIGH ADDRESS 
EVALUATE PRODUCT-LENGTH 



HIGH BITS OF PRODUCT-LENGTH 
OR INTO PSL Z-BIT 
EVALUATE PRODUCT-ADDRESS 



SAVE PRODUCT-LENGTH IN SC 

DIVIDE IT BY 2 

TEST FOR LEGAL LENGTHS 



557 



U 0328, 0000.003C.0180,F800,0000,0106 

U 032C. 081F,A010.2980,F908.0104,6BD6 

U 0BD6, 0010.0038, CD80,3E98,0000,08DD 

U OBDD. 001B.0008.1DCO,FB80,OOOO.OBDE 

U 06DE, OC19,0000,11&0,FAA8,0081,08EO 



ZZ-ESOAA-124.0 ; DECMAL.WC C600.12043 
; P1U124.MCR 600.1204D MICR02 1L 

; DECMAL.MIC C600. 12043 Decimal string 



Decimal string 14 

MICR02 1L(03) 14-Jan-82 15:30:16 



MULP 



E 12 
14-Jan-82 Fiche 

VAX1 1/780 Microcode 



21268 
21269 
21270 
21271 
21272 
21273 
21274 
21275 
21276 
21277 
21278 
21279 
21280 
21281 
21282 

U OBEO. 0019.2014,0180,36AO,0000,0585 ;21283 

; 21 284 



21263 ; 

21264 =10** .-BRANCH ON PSL Z-BIT 
21265 

21266 MUL. 12: J/RSVOPR 
21267 

FEJCC.343, 

LCRCCT13. 

ALO Q.OXTCBYTE3+D+1, 

D.AtU 



ALULC,RCR33_ALU, 
IDCT33.D 

ALU 0-KCSC3-1, 
LC_RCC T03&R1.ALU,Q.A LU 

SC FE.D Q, "~~ 
ALD.D-Kr.43 .RrR53.ALU ,L0N6 

ALU Q+KC.83 ,RCR43_ALU,L0NG, 
ID(50J>,J/MUL.Ml£ 



3 Frame E12 Seguence 559 

: PCS 01, FPLA OE, WCS124 Page 558 



LENGTHS OUT OF RANGE 

USE IT FOR ADDRESS LATER 

RETRIEVE HIGH MULTIPLICAND-ADDRESS 

GENERATE HIGH PRODUCT-ADDRESS 



STORE MULTIPLICAND-ADDRESS 
STORE PRODUCT-ADDRESS 

NEGATIVE PRODUCT-LENGTH 
R1 GET PRODUCT-LENGTH 



INITIALIZE R5 WITH DST-ADDR-4 

INITIALIZE R4 WITH DST-LENGTH+8 
STORE LENGTH IN T4 



ZZ-ESOAA-124.0 ; DECMAL.MIC C600,12043 
P1W124.MCR 600,12043 MICR02 1L<03) 
DECMAL.MIC C60O, 12043 Decimal string 



F 12 
Decimal string 14-Jan-82 Fiche 3 Frame F12 Sequence 560 
14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01. FPLA OE, WCS124 Page 
: MULP 



559 



U 0990, 0843,A03D,D9F0,2DB8,0010,08E2 

U 0991, O0O0,O03C,D9F0,2E08,0082,0CA9 

U 0992, 0000,003C,D9FO,2E08,0082.0CA9 
U 0993, 0C0O,O03C,01EO,F80O,0180.ABE1 
U 08E1, OCOO,003C,B580,3COO,0000.08E3 

U 0BE2, 001D,0012,81F0,2EF8,2500,0003 

U 0BE3, 0019.9B0O.09C0,F800,0091,09D7 

U 09D7, 0019,180O,05C0,FA78,O000,09E7 
U 09DF, 0810,1738.0130,F900,0000,09F3 

U 09E7, OFOO,003C.0180,F800,0000,099A 
U 09EF, 081 9,2020,0580,F800, 0000, 099A 



21285 
21386 
21287 
21288 
21289 
21290 
21291 
21292 
21293 
21294 
21295 
21296 
21297 
21298 
21299 
21300 
21301 
21302 
21303 
21304 
21305 
21306 
21307 
21308 
21309 
21310 
21311 
21312 
21313 
21314 
21315 
21316 
21317 
21318 
21319 
21320 
21321 
21322 
21323 
21324 
21325 
21326 
21327 
21328 
21329 
21330 
21331 
21332 
21333 
21334 



=00 

LOAD. MULTIPLIER: .-ROUTINE WHICH READS MULTIPLIER AND LOADS IT IN 

CONSECUTIVE REGISTERS OF RC. 

EXPECTS IDCT73=M'PLIER-LENGTH=Q 

;IDCT63=M , PLIER-ADDRESS, 

RETURNS RC-LIMIT IN IDCT83 (1 THRU 6) 

;USES RC7.R15 AS SCRATCH TO HOLD LENGTH AND ADDRESS. 

: EXPECTS Q TO HAVE SRC-LENGTH 



ALU Q.0XTCBYTE3. 
DK/5HF.CLK.UBCC, 
RCCT73 ALU.RIGHT.Q IDCT63, 
CALUJ7MULT.SETFPD" 
;01« 
MULT.MEMORV.FAULT: 
Q IDCT63. 
ACU RCR13.SC.ALU. 
J/MOLT.SAVE 
. 1 o 

Q IDCT63. 

ACURCR15.SC.ALU. 

J/MDLT.SAVE 

D Q.Q.D.SC SC-FE.FEK/LOAD 



=;END 



IDCFPDA3.D.D.Q.J/PL.LL 



MULT.SETFPD: 

RCR153 D+Q+1 FE SC. 

SET . FPU ,Q.IDCUSTACK3 ,RETURN3 



PL.LL: SC FE, 

Q J5-KC.23,CUC.UBCC, 
B ?TE,AL U? 

=0111 -BRANCH ON ALU N-8IT 

6 D-KC.13, 
Lfe RCR153, 
BEN7ALU,J/PL.LL1 

;1111 

D RCCT03, 
STATE3-0?,J/PL.LL3 



=;END 

=0111 .-BRANCH ON ALU N-8IT 

PL.LL1: 6 0,J/PL.LL2 

ALU_C.XOR.ICC. 13, D ALU 
=;END ; = 



GET M'PLIER-LENGTH 

GET SRC-ADDRESS 

SET FIRST PART DONE-FLAG 

FAULT-ROUTINE STARTS HERE 
GET MULTIPLIER-ADDRESS 
SAVE PRODUCT-LENGTH IN SC 



GET MULTIPLIER-ADDRESS 

SAVE PRODUCT-LENGTH IN SC 

ROUTINE TO SAVE CONTEXT OF MULP-INST 

CLEAR SC AND FE 

LOAD FPD-ADDRESS 



GET HIGH ADDRESS 

GET FPD-ADDRESS FROM U-STACK 



COMPARE LENGTH WITH 2 
TEST LENGTH 



ADJUST LENGTH 

GET ADDRESS 

LOAD STANDARD COUNT 

GET SIGN-BYTE 

SHOULD WE CHECK C IGNS? 



READ 3 BYTES 

READ LESS THAN 3 BYTES 



G 12 
ZZ-ESOAA-124.0 ; DECMAL.MIC C600.12043 Decimal string 14-Jan-82 Fiche 3 Frame 612 

; P1W124.MCR 600-12043 HICR02 1L(03) 14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01. FPLA 0E, WCS1 

; DECMAL.MIC C600. 12043 Decimal string : MULP 



Sequence 561 



guenc 



Page 560 



U 099A, 0018.0C01.0580,F800,0200,9E24 

U 0998, 0018.0000.0D80,FAF8,0081 ,0BE4 
U 0BE4, 0001,003C,0180.F838,0000,0BE5 
U 0BE5, 0810,0038,0180,F938,0100,C8E8 

U 0BE8, 0819,8000,OD80,F988,0010,08E3 

U 09F3. 0019,OF24,6180,F980,0000,09A2 
U 09F7, 0019.0024,6180,F980,0000,09A2 
U 09FB, 0019,0024,6180,F980,0000,09A2 
U 09FF, 0019,0024,6180,F980,0000,09A2 
U 08E9, 0F00.803E,E1C0,3E10,0010,0010 

U 09A2, 0818, 0038. 1D80,F800, 0000, 0BE9 
U C9A3, 0000,003C,0980,F800,1404,29a2 



21335 =10 ;10 

21336 PL.LL2: VA LA-KC.13, 



21337 

21338 

21339 

21340 

21341 

21342 =;END 

21343 

21344 

21345 

21346 

21347 

21348 

21349 

21350 

21351 =0011 

21352 



CALl. 

MUL7.J/READ2 

;11- 

SC FE. 

RCR15J.LAHCC.33 

ALUJ>.RC(SC)_ALU 

D_RCCT73,FE_SC*1 



ALU D-KC.33, 
RCCT73 ALU,D_ALU. 
CLK.UBtC,8YTE\J/PL.LL 



6ET ADDRESS READY 

CALL READ-6CD-R0UTINE 

GET RC-POINTER 
UPDATE ADDRESS 

STORE DATA IN RC 

GET LENGTH, INCREMENT RC-POINTER 



UPDATE LENGTH 

LOOP BACK TO READ ANOTHER 3 BYTES 



BRANCH ON 1.READ AND 1. WRITE BIT OF STATE 
0011- 



21353 PL.LL3: ALU D.ANDNOT.KC.F3,RCCT03_ALU, 



21354 
21355 
21356 
21357 
21358 
21359 
21360 
21361 
21362 



BCD5GN?,J/PL.LL4 

;0111- 

ALU D.ANDN0T.KC.F3.RCCT0J ALU, 

J/PC.LL4 

ALU D.ANDNOT.KC.F3,RCCT03 ALU, 
J/PC.LL4 

ALU D.ANDNOT.KC.F3,RCCT03 ALU, 
J/PC.LL4 



CLEAR SIGN-NIBBLE 

TEST SIGN OF MULTIPLIER 

THIS IS RESTART, 

SIGNS HAVE BEEN CALCULATED 

WHAT A WASTE! 



21363 

21364 =;END 

21365 PL. EX: Q RCR23,CLK.UBCC,BYTE, 

21366 IPCT83.D, DJ),R£TU RN10 

21368 =10 -BRANCH ON DECIMAL SIGN-NIBBLE 

21 369 ; 1 

21370 PL.LL4: D KCSC3,J/PL.EX 

21372 STATE STATE. OR.KC. 23, 

21373 J/PL.CL4 

2 1 374 =; END ; 



GET MULTIPLICAND-LENGTH 
SAVE RC-LIMIT (1 TO 6) 



GET NO. OF RC-REGISTERS USED 
SET SIGN-BIT 



ZZ-ESOAA-124.0 ; DECMAL.MIC C600, 12043 
; P1W124.MCR 600.12043 MICR02 1L(03) 
; DECMAL.MIC C600.12043 Decimal string 



H 12 
Decimal string 14-Jan-82 Fiche 3 Frame H12 Seguen 
H-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA 0E, WCS124 
: MULP 



ce 562 



Page 561 



U 0585, 0010,0039,DDFO,2E90,0000.0990 
U 0595, 001F,0010,01CO,F800,0000,0828 



U 0828, 0200,003C, 0580, FA1 8,1 604, 4BEA 

U 0829, 0203,013C,0580,FA80,1404,482C 

U OBEA, 0019,A000,05E0,4290,0000,0BEB 
U OBEB, OC18,0000,05EO,FA98,0000,08EC 

U OBEC, OC03,873C,C1EO,3E80,0000,0566 

U 0566, 0000,8F3C,01CO,FA20,0010,0312 
U 056E. 0001, 203C,0180,FA08, 0082, 08EE 

U 082C, 0001,003C,C180,3E08,0082,08EE 
U 082D, 0O01.173C,C180,3E18,0082,01EA 



21375 =0**** 

21376 MUL.MUL: 
21377 
21378 
21379 
21380 
21381 
21382 

21383 =;END 
21384 
21385 
21386 
21387 
21388 
21389 =0 
21390 



; START MULTIPLICATION-ROUTINE HERE 



ALU LC ,RCR23 ALU.Q IDCT73 , 
CALL\J/LOAD .MULTIPLIER 



alu o+q+1 ,q_alu. 
j/mDlr.i 



STORE MULTIPLICAND-LENGTH 
LOAD MULTIPLIER INTO RC 

ADJUST MULTIPLICAND LENGTH 



.-ROUTINE TO READ BYTE FROM MULTIPLICAND. 
.EXPECTS R2=MULTIPLICAND LENGTH 
;R3=*ULTIPLICAND ADDRESS 
.•USES 1. TIME BIT TO TEST FOR SIGN-BYTE 



.•BRANCH ON ALU Z-BIT 



21391 MULR.1: VA RCR33.DK/RIGHT2, 



ST*TE STATE.ANDN0T.KC.13, 
J/MULR1 

;1 

RCR03_0.DK/RIGHT2, 

STATE STATE .ANDNOT.KC . 13 . 

Z7.J/MULRS 



DCBYTE3.CACHE, 
RCR23_Q-KC.13,QJ> 

RCR33.LA-KC . 1 3 . O.D , D.Q 



21392 
21393 
21394 
21395 
21396 
21397 

21398 =;END 

21399 MULR1 
21400 
21401 
21402 
21403 
21404 
21405 
21406 
21407 

21408 =011* 
21409 

21410 MULSGNO: 

21411 Q RCR43,CLK.UBCC,BVTE, 

21412 BtDSGN?,J/MULSGN 

21413 ;111* 

21414 ALU_Q.SC ALU, 

21415 LAB_RCR13\J/MULPUP 

21416 =;END 

21417 =0 ;BRANCH ON ALU Z-BIT 
21418 



ALU O.0XTCBYTE3, 
RCR03_ALU,IDCT03 D, 
QJ>,D_Q,STATE3-0? 



BRANCH ON 1. TIME BIT OF STATE 
011*- 



21419 MULR5: ALU D,SC ALU,IDCT03_D, 

21420 LAB.RCR13.J/MULPUP 

21422 ALU D,SC ALU.IDCT03 D, 

21423 LAB RCR33,STATE3-0?,J/MUL.FIN 

21424 =;END ; 



LOAD MULTIPLICAND ADDRESS 
CLEAR HIGH DIGIT BIT 



NO MORE DIGITS 
CLEAR HIGH DIGIT BIT 
TEST LAST NIBBLE 

READ NEXT BYTE 
UPDATE LENGTH 

DECREMENT MULTIPLICAND-ADDRESS 

ISOLATE NEW DIGITS 
STORE BYTE IN RO 
TEST FOR 1. TIME READ 



GET PRODUCT-LENGTH 

CHECK SIGN-NIBBLE OF MULTIPLICAND 

GET PREVIOUS NIBBLE 
GET PRODUCT LENGTH 



SAVE PREVIOUS NIBBLE IN SC AND TO 
GET PRODUCT-LENGTH 

SAVE PREVIOUS NIBBLE IN SC AND TO 
GET MULTIPLICAND-ADDR., TEST 1. TIME 



ZZ-ESOAA-124.0 ; DECMAL.MIC C60O.12043 
; P1U124.MCR 600.12043 MICR02 1LC03) 
; DECMAL.MIC C600.12043 Decimal string 



Decimal strinc 



K-Jan-82 15:30:16 
MULP 



I 12 
H-Jan-82 



Fiche 3 Frame 112 



Seguence 563 



VAX11/780 Microcode : PCS 01, FPLA 0E. WCS124 



Page 562 



U OBEE. 0000.003C.CDF0.2EA0.0000.08F0 

U OBFO. 0819.2000.0580.F800.0000.0BF1 

UOBF1. 0OO1.203C.CD80.3EA8.0000.QBF2 
U 0BF2. 001 8.0014.0980. FA88.0000.0BF3 

U 08F3. 0018.0038.0580. F9B0.*000.0BF4 
U 08F4. 0870.0E38.65F8.F900.1404.4CE6 



21425 MULPUP: ;ENTER HERE AFTER READING A PAIR OF DIGITS FROM MULTIPLICAND. 



21426 
21427 
21428 
21429 
21430 
21431 
21432 
21433 
21434 
21435 
21436 
21437 
21438 
21439 
21440 
2U41 
21442 
21443 
21444 
21445 
21446 
21447 
21448 
21449 
21450 
21451 



.-UPDATE ABSOLUTE PRODUCT PARAMETERS. 
.•DURING EACH PASS THROUGH THE PRODUCT STRING, 
;USE R4 AND H5 AS POINTERS. AND INITIALIZE THEM BY 
;R1 AND IDCT33. 



Q IDCT33. 

aCuj_a,rcr43_alu,long 



ALU Q-KC.13, 
D .ApJ 

IDCT33 D, 
R CR53.g,L0NG 

A LU,LA+KC . 23 .RCR1 3.AL U 

INTRPT. STROBE, 
ALUJC[.13,RCCT63_ALU 



STATE STATE .ANDNOT . KC . 1 03 , 

ALU R7CT03. 

D.ACU.LEFT2, 

Q_0 .BEN/INTERRUPT. J/MULM03 



GET PRODUCT ADDRESS 
GET PRODUCT-LENGTH 

UPDATE ADDRESS 



SAVE ADDRESS 
SAVE LENGTH 

UPDATE LENGTH 

STROBE FOR INTERRUPTS 
INITIALIZE DIVISOR-COUNT 

CLEAR CARRY-BIT OF STATE 
GET 1. DIGIT 

TEST FOR INTERRUPTS 



U 01EA, 0000,003C,0180,FA08,0000,OBEE 
U 01EE, 000F,0011,1180,FA98,0084,6BCD 



ZZ-ES0AA-124.0 ; DECMAL.MIC C600J2043 
; P1U124.MCR 600,12043 MICR02 1L(03) 

; DECMAL.MIC C600,1204: Decimal string 



J 12 

?14-Jan-82 Fichc 3 Frame J12 seguen 

5:30:16 VAX11/780 Microcode : PCS 01, FPLA 0E, WCS124 



Decimal strin 
lan-82 
: MULP 



Sequence 564 



Page 563 



U 01FE, 0010,0038,0180,F938,0030,08F5 
U 08F5, 0003,173C,D9F0,2E80,0030,012C 

U 012C, 0001,363C,0180,FA88,0000,035A 
U 012E, 0001,3A3C,0180,FA88,0000,OA08 

U 0A08, 0018,9638,4180,F800,0050,035A 
U OAOF, 0003,163C,D1FO,2E90,0000,033A 



U 033A, 0042,A03C,04CO,F800,1404,698F 
U 033E, 0000,003C,31FO,2COO,0020,0826 



U 035A, 0003,003C.0180,FA90,2000,082C 
U 035E, 0003,003C, 31FO,2E90,0020,0826 



21452 .-ROUTINE TO SET CONDITION-CODES FOR MULP-INSTRUCTION 

21453 =0101* ;BRANCH ON 1. TIME BIT OF STATE 

21454 MUL.FIN: 

21455 ;0101* 

21456 LABRCR13,J/MULPUP 

21457 ;01T1*- 



SAVE PREVIOUS NIBBLE IN SC 



21458 =0111* ALU 0+LB+URCR33 ALU, 

21459 SC KC.43,CALL,J/REG.ADJUST 
21460 

21461 * *********************************************** 

21462 ; * Patch no. 066, PCS 01EE trapped to WCS 118C * 

21463 ; *********************************************** 
21464 
21465 ;1111* 



UPDATE R3 

ADJUST REGISTERS 4 AND 5 



21466 =1111* ALU RCCT73,N AMX.Z TST 

21467 =;END ;—= z = 

21468 ALU 0(A), RCR03 ALU,L0N6, 

21469 N_.AMX.ZTST, 

21470 Q~IDCT63\ 

21471 STATE3-0? 
21472 

21473 =110* 

21474 MULP.EC0.4: 



21475 
21476 
21477 
2K78 
21479 
21480 

21481 =;END 

21482 =1011 
21483 
21484 
21485 
21486 
21487 
21488 

21489 =;END 

21490 =01* 
21491 



;110* 

RCR13 Q,LONG, 

STATE7-4? , J/MUL.F .PLUS 

;111*- 

RCR13 Q,L0NG, 

PSL.Cll 



BRANCH ON PSL Z-BIT 

ALU KC . 803 ,I*Z ALU. VfcC.O ,BYTE , 
STATE7-4? , J/MX.F .PLUS 

ALU 0(A) ,RCR23 ALU, 
Q.lPCT43,STATE7-4? 



BRANCH ON OVERFLOW -BIT OF STATE 

21492 MUL.F2: STATE.KC.13, 

21493 ALU Q.SXTCBYTE3,Q ALU.RIGHT, 

21494 SJ/3SHR,j/ SGN.C10 

21496 SET.V,Q.IDCCES3,J/FINI5 

21498 =6l* -BRANCH ON OVERFLOW-BIT OF STATE 

21500 MUL.r.PLUS: 

21501 ALU 0(A), RCR23ALU, 

21502 CLR.FPD,J/FINlT5 

21 503 ; 1 1 * 

21504 ALU 0(A),RCR23 ALU, 

21505 SETTV,Q IDCCESl,J/FINI5 

21506 =;END 



TEST LAST LONGWORD FOR 

CLEAR RO 

CLEAR N-BIT 

GET MULTIPLICAND-ADDRESS 

TEST SIGN-BIT 



BRANCH ON SIGN-BIT OF STATE 
LOAD IT IN R1 
POSITIVE, TEST OVERFLOW-BIT 

LOAD IT IN R1 
TEST Z-BIT 



SET N-BIT 

TEST FOR OViRFLOW 

CLEAR R2 

GET DST-LENGTH, TEST OVERFLOW 



FOR RESTART 
CHANGE SIGN 
GET IDCCES3 



CLEAR R2 

CLEAR FIRST PART DONE-FLAG 

CLEAR R2 
GET IDCCES] 



ZZ-ESOAA-124.0 ; DECMAL.MIC C600, 12043 
; P1U124.MCR 600.12043 MICR02 1L(03) 
; DECMAL.MIC C600.12043 Decimal string 



Decimal string 
: MULP 



K-Jan-82 



K 12 
14-Jan-82 Fiche 3 Frame K12 seguet 

30:16 VAX1 1/780 Microcode : PCS 01, FPLA OE, WCS124 



Sequet .ce 565 



Page 564 



U C312, OF03,003D,1180,F8A8,1454,2C6B 
U 0313. 0000.003C .09CO.FA20. 1414,8312 

U 0332, 0800, 803C,1180,FA10, 1414, 88FD 
U 0372, 0019, 2014. 01 80,FAAO,0000,08F8 
U 08F8, OF18,0000,1180,FAA8,0000,0566 



.-ROUTINE WHICH SETS THE SIGN-BIT,DEPENDING ON 

;LOU NIBBLE OF D. AND SIGN-NIBBLE IN RCO. 

;IT CLEARS OUT SIGN-NIBBLE IN RCO, AND CLEARS OUT PRODUCT-STRING. 

;THE SIGN-NIBBLE IN THE PRODUCT WILL BE GENERATED BY THE 

;WRJTE-ROUTINE. WHEN IT SEES THE 1.TIME BIT SET. 



;BRANCH ON BCD-SIGN 



21507 

21508 

21509 

21510 

21511 

21512 

21513 =00***10 

21514 

21515 MULSGN: STATE STATE.0R.KC.43, 

21516 ALU 07A) -NfcZ ALU. VfcC 0. 

21517 LA.RACR53,D.0.CALL,J7WRITE 

21518 ;-= = 

21519 STATE STATE-HCC. 23, 

21520 Q RCR?3,CLK.UBCC, 

21521 J7MULSGN 

21522 ; 

21523 =01***10 

21524 STATE STATE+KC. 43, 

21525 D RCR23, CLK. UBCC, BYTE, 

21526 J7MULM00 

21527 ; 

21528 =11***10 

21529 RCR43 Q+KC.83 

21530 =;END ; 

21531 RCR53 LA-KC.43.D 0, 

21532 J/MUL5GN0 

21 533 ; 



SET 1. WRITE-BIT 
SET Z-BIT 
WRITE 

COMPLEMENT SIGN-BIT 

START OF LOOP TO CLEAR OUT 



CLEAR 1. WRITE, SET 1. READ 
GET MULTIPLICAND-LENGTH 
FINISHED, READ ANOTHER BYTE 



UPDATE LENGTH 
UPDATE ADDRESS 



ZZ-ESOAA-124.0 ; DECMAL.MIC C600. 12043 



. P1U124.MCR 600-1 2043 
; DECMAL.MIC C600,12043 



MICR02 1L(03) 
Decimal string 



Decimal string 
K-Jan-82 T5:30:16 



L 12 
14-Jan-82 



Fiche 3 Frame L12 



U 08F9, 0810.0O38,E1FO,2D30,0082,OBFA 
U OBFA, 001D,8000,0180.F800,0010.0BFC 

U OBFC, 0870,0138,C1F0.2C30,0080,C830 

U 0830. 0018.0038.1D80,F9B0.4000.0BFE 
U 0831, 0800,803C,0180.FA10.0010,08FD 

U OBFD. 0898. 0134, CDEO.FAOO.0010,0828 
U OBFE. 0001,2E3C,05F8,F800,1486,4CE6 



U 0CE6. 011F,0C14,11D0.FAF8,00H,AD13 



U 0CE7, 0000, 00?C, 41 80, F 800, 1404, 2991 



21534 
21535 
21536 
21537 
21538 
21539 
21540 
21541 
21542 
21543 
21544 
21545 
21546 
21547 
21548 
21549 
21550 
21551 
21552 
21553 
21554 
21555 
21556 
21557 



21559 
21560 
21561 
21562 
21563 
21564 
21565 
21566 
21567 
21568 
21569 
21570 
21571 
21572 
21573 
21574 
21575 
21576 
21577 
21578 
21579 



MULP 



VAX1 1/780 Microcode : PCS 01. FPLA OE, WCS124 



Sequence 566 



Page 565 



MULM: 



ROUTINE WHICH MULTIPLIES NEXT RC-REGISTER BY D.3ITS IN 

IDCT03 AND RO (LOU NIBBLE). LEAVES RESULT IN RC7. 

CHECKS FOR LAST RC-REGISTER. 

R15 IS USED FOR SCRATCH. 

IDCT83 HAS UPPER LIMIT FOR RC-POINTER 



MULMO: 



=0 



ALU .RCCT63.SC ALU. 
D _RtCT63.Q.IDtT83 

ALU D-Q, CLIC.UBCC. 
B YTE.J/MULMO 

LCRC(SC>,SC_SC+1, 
ALO LC.D.ALU.LEFT2. 
Q I5CT03T 
Z?,J/MULM01 



BRANCH ON ALU Z-SIT 



MULM01: ALU KCSC3,RCCT63 ALU. 

INTR>T.STROBE.J/ftJLM02 

;1- 

D.RCR23 , CLK .UBCC .BYTE 
=;END 



21558 HULMOO: ALU_RCR03.AND.KC.F03. 



MULM02: 
=110 



Q D.D ALU.RIGHT2. 
C CK.UBCC.Z?.J/MULR.1 

STATE STATE .ANDNOT .KC .13, 
SC_0.3_0.BEN/INTERRUPT 



BRANCH ON INTERRUPT REQUEST 
110- 



MULM03: EALU_SC-KC.43.DK/LEFT2, 
ALU_0+O.RCR1 53_ALU,LONG. 
CLK.UBCCQDEC.CON. 
SC.NE^C^7MULM1 

MUL. INTERRUPT: 

STATE STATE. OR.KC. 803, 
J/MULT.MEMORY. FAULT 

=;END 



GET RC-POINTER 
GET RC-LIMIT 

COMPARE WITH UPPER LIMIT 



GET DATA, INCREMENT POINTER 
START MULTIPLYING BY 10. 
GET FIRST DIGIT IN M'CAND 
TEST FOR END OF M'PLIER 



UPDATE RC-POINTER 
STROBE INTERRUPTS 

GET M'CAND-LENGTH 

GET HIGH DIGIT OF M'CAND 

SHIFT IT RIGHT TWICE 

READ ANOTHER BYTE OF M'CAND 

CLEAR HIGH-DIGIT BIT 

TEST FOR PENDING INTERRUPTS 



COMPARE FOR ADD OR SUBTRACT 
CLEAR R15 (Q=0) 
D 6ETS 10.*0PERAND 
TEST DIGIT FOR 



SET INTERRUPT-BIT OF STATE 



*********************************************** 

* Patch no. 026, PCS 0CE7 trapped to WCS 115D * 

*********************************************** 



ZZ-ESOAA-124.0 ; OECMAL.MIC C600.12043 



U OD13. 0813.0014.01D0,FA78.0000.0D33 



U 0017. OC00.123C.05EO,FA78,0094.AA13 



. P1W124.MCR 600.12043 
; OECMAL.MIC C600.12043 



MICR02 1L(03) 
Decimal string 



M 12 
Decimal string 14-Jan-82 Fiche 

H-Jan-82 15:30:16 VAX11/780 Microcode 
: MULP 



U OD23, 0800. 173C,05F8,FAF8, 1404, 2A38 



U 0D27, 0C61,123C.05C0,FA78,0094,AA13 



21580 
21581 
21582 
21583 
21584 
21585 
21586 
21587 
21588 
21589 
21590 
21591 
21592 
21593 
21594 
21595 
21596 
21597 
21598 
21599 
21600 
21601 
21602 
21603 
21604 
21605 



=011 
MULM1: 



=;END 
=011 



; CONTINUATION OF LOOP TO MULTIPLY 
;PAIR OF DIGITS FROM MULTIPLICAND. 



.-BRANCH O NSCNE 

ALUJHLC.D.ALU. 

LAB I RCR1 53. Q.DEC. CON, 

J/M0LA1 

;111 

Q D.DJ1.LAB.RCR153. 
Si SCHCC.13,CLK.UBCC. 
BER/EALU.J/MULM2 



.-BRANCH ON SC NE 

.-011 

MULTWO: ALU LA.RCR153 ALU.D ALU, 
STATE„STATE.OR.KC.n. 
Q 0. 

STATE3-0?, 
J/MURAU 

SC SC-KC.13.CLX.UBCC, 
ALO D.SHF/ALU.DT.LONG, 
D Q.QK/SHF.LA6 RCR153. 
E*LU?,J/MULM2 
=;END 



3 Frame M12 Seguence 567 

: PCS 01. FPLA OE, WCS124 Page 566 



LONGWORD FROM DIVISOR WITH 



GET RC-REGISTER TO BE MULTIPLIED 
PRODUCT GETS 0. Q GETS 6'S 



R15 HAS PARTIAL PRODUCT 
ADJUST DIGIT, CLOCK IT 
TEST LOW DIGIT FOR >=4 



GET PARTIAL PRODEUCT 
SET HIGH DIGIT-BIT 
FOR NEXT INSTRUCTION 
TEST 1. TIME BIT 
R15 HAS PRODUCT 

ADJUST SC IN CASE IT IS 1 
MULTIPLY BY 4 

D GETS 6'S, Q HAS MULTIPLIER*^. 
TEST FOR DIGIT >= 4 



ZZ-ES0AA-124.0 ; DECMAL.MIC C600.12043 



. P1W124.MCR 600.12043 
; DECMAL.MIC C600.1204] 



HICR02 1L(03) 
Decimal string 



N 12 
Decimal string K-Jan-82 Fiche 3 Frame N12 seguen 
14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01. FPLA OE, WCS124 

: MULP 



Sequence 568 



Page 567 



U 0A13, OC10,0O38,C9C0,3EF8,0O0O,0A2F 



U 0A17, 0813,0Cl4,C9D0,3EF8,000O,0D33 



u oaib. o813,oci4,c<?do 



>cc. 



O000,0D33 



U 0033, 0118,1734,6180,F880,1482,CA1E 
U 0D37, 081D.0014,0580,F800,0084,ACOG 
U 0C00, 0811,0014,01DO,F800,0000,OC01 

U 0C01, 081D,0C00,C9F0,2EF8,0000,0D33 



U 0A27, 0118.1734,6180,F88C,1482,CA1E 
U 0A2F, 0811,OOOC,01DO,F800,0014.AC02 

U 0C02, 081D,1200,C9F0,2EF8.0080.CA27 



21606 

21607 

21608 

21609 =0011 

21610 

21611 MULM2: 

21612 

21613 

21614 

21615 

21616 

21617 

21618 

21619 

21620 

21621 

21622 =;END 

21623 =011 
21624 

21625 MULA1 : 

21626 

21627 

21628 

21629 

21630 

21631 =;END 

21632 

21633 

21634 

21635 

21636 

21637 

21638 =0111 

21639 



;STJLL PART OF LOOP TO MULTIPLY MULTIPLIER LONGWORD BY PAIR 
;0F DIGITS FROM MULTIPLICAND. 



.-BRANCH ON EALU N-BIT AND Z-BIT 

^ Q <2, L C» ~" "" 

RtRl53_ALU,L0NG, 

IDCT23J),J/MULSU1 

;0111~ 



IDCT23J), 

RCR1 5 J ALU,ALU 0+LC ,D ALU, 

Q DEC . tON,SC .NE\0? , J/MULA1 

; T01 1 

IDCT23J), 

RCR153 ALU,ALU 0+LCD ALU, 

Q.DEC. E0N,SC.NE\0?,J/flULA1 



BRANCH ON SC NE 

Oil- 

LA.RACR03 , ALU LA.AND.KC. F3, 
SC ALU,STATE.5TATE+1 , 
DK7LEFT2, 
STATE3-0?,J/MULSUO 

111- 
D.D+Q,SC.SC-KC.13 



D.D+LC, Q.DEC. CON 



D D-Q.Q IDCT2J. 

RlR153.AlU,LONG, 

SC.NE.0?,J/MULA1 



BRANCH ON EALU N-BIT 
0111 — 
21640 MULSUB: LA.RALR03,ALU LA.AND.KC.F3, 



21641 SC ALU,STATE_5TATE+1 , 

21642 DK7LEFT2,STATE3-0?, 

21643 J/MULSUO 

21644 ;1111- 

21645 MULSU1: EALU SC-KC.83,CLK.UBCC, 

21646 D D-CCQ DEC. CON 

21647 =;Ef# ;= = 

21648 SC SC+1, 

2 1 649 ALO D-Q,R[R153_ALU,D.ALU, 

21650 C,I0CT2J, 

21651 E^LU?, J /MULSUB 

21 652 



INITIALIZE R15 WITH LONGWORD 
DO A SUBTRACT (DIGIT > 4) 

SAVE ALL 6,S IN T2 

ADD IF DIGIT IS 4 

SAVE ALL 6,S IN T2 

ADD IF DIGIT IS 1,2,0R 3 



GET NEXT DIGIT, SET HIGH DIGIT-BIT 
SHIFT LEFT, IN CASE OF HIGH DIGIT 
FINISHED, D HAS PRODUCT 

ADD IN THE 6* S, DECREMENT DIGIT 

ADD OPERANDS 

DECIMAL ADJUST, GET 6'S 
SAVE IT IN R15 
TEST DIGIT 



GET NEXT DIGIT 
SET HIGH DIGIT-BIT 
SHIFT PREVIOUS PRODUCT 



COMPARE COUNT WITH 8 
SUBTRACT OPERANDS 

SUBTRACT OPERANDS 
DECIMAL ADJUST 
GET ALL 6'S 
TEST FOR DIGIT=0 



U 0A1E. 0873.0C14.11DO,FA78.0014,AD23 

U 0A1F, 010D.2014.05CO.F800.1404.AC03 
U 0C03, 081D.0014.05DO.F800.1404.2C04 

U 0C04. 081D.1 700.01 F8.FAF8, 0000, 0A3B 



ZZ-ESOAA-124.0 ; DECMAL.MIC C600.12043 



P1U124.MCR 600-12043 
DECMAL.MIC C60O.12O43 



MICR02 1L(03> 
Decimal string 



B 13 
Decimal string 14-Jan-82 

14-Jan-82 15:30:16 VAX11/780 
: MULP 



Fiche 
Microcode 



21653 
21654 
21655 
21656 
21657 
21658 
21659 
21660 
21661 
21662 
21663 
21664 
21665 
21666 
21667 
21668 
21669 
21670 
21671 



=1110 .-BRANCH ON HIGH/LOV-BIT OF STATE 

; 1 1 1 

MULSUO: EALUSCHCC.43.CLK.UBCC. 

ALU 0+LC. 

D.ACU.LEFT2. 

Q DEC . CON ,LA6 RCR1 53 . 

SC.NE.0?,J/MUi:TH0 

ALU 0+LB.Q_ALU. 

DK/KFT2, 

STATE STATEHCC.13 



=;END 



STATE STATE.0R.KC.13, 
D_D+0TO_DEC 1 C0N 

ALU D-Q. 

RCRT53 ALU.D ALU.O 0, 

STATE3-0?,J/«URAW " 



3 Frame B13 Sequence 569 

: PCS 01. PLA OE, WCS124 Page 568 



COMPARE DIGIT WITH 4 

LC HAS LONGWORD OF MULTIPLIER 

D GETS MULTIPLIER*4 

GET PREVIOUS PRODUCT 

DO THE HIGH DIGIT AS WELL 

ADD THTS PRODUCT TO PREVIOUS ONE 
D HAS NOW BEEN MULTIPLD. BY 10 
COMPENSATE FOR PREVIOUS ADD 

SET HIGH NIBBLE BIT 
ACTUAL ADD 

DECIMAL ADJUST 

STORE IN R15 

ADD IT INTO PRODUCT-STRING 



U 0A3B, 081D,0000.0180.FA20.0000,0152 



U 0A3F. 0840,803C,0080,FA20.0010,09BA 



ZZ-ES0AA-124.0 ; DECMAL.MIC [600,1 2C'*3 



; P1W124.MCR 600.12043 
; DECMAL.MIC C600. 12043 



MICR02 1L(03) 
Decimal string 



C 13 
Decimal string 14~Jan-82 Fiche 3 Frame C13 Seguence 570 
14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01. FPLA OE, WCS124 Page 
: MULP 



569 



U 09BA, 0819, 9815, 0D80,F8A8. 0010, 0817 

U 0988, 081D,0214,4980,FA78,0000,0D45 

U 0D45, 080D,0014,01DO,F800.0070,OA33 
U 0D47, 0018,0010,49CO,F800,0000,OC05 



U 0C05. 081D,0014,01DO,F800,0070,OA3B 

U 0152, O0OC,8039,01C0,F8A8,0O10,0C79 

U 0172, 0018,0000,OD80,FAA8,0000,OC08 

U 0C08, 0018,0038,D5CO,FA20.0000,OC09 

U 0C09. 001C,0014,1180,FAA0,K04,28F9 



21672 .-ROUTINE TO READ A LONGWORD FROM PRODUCT, ADD IT TO D (DECIMAL ADD), 

21673 ;AMD WRITE OUT THE RESULT IN THE SAME LONGWORD-LOCATION. IT USES ADDRESS 

21674 ;AND LENGTH IN R5 AND R4, AND UPDATES EACH Of THEM BY 3 AFTER THE WRITE. 
21675 



21676 =1011 

21677 MURAW: 
21678 

21679 
21680 
21681 
21682 
21683 
21684 

21685 =10 

21686 MURWC: 
21687 

21688 

21689 

21690 

21691 

21692 

21693 

21694 

21695 

21696 =101 

21697 



ALU.LMKC.FF3+1 ,Q_ALU 



21698 
21699 
21700 
21701 
21702 
21703 
21704 
21705 
21706 
21707 
21708 
21709 
21710 

21711 =10***** 

21712 MURW3: ;10***** 



;1011 

labj*cr43 ,d j>-q. j/murw3 

.•hh- 
alu RL 't3,D ALU.RIGHT, 
SI/*SHR,CLK7UBCC.BYTE. 
J/MURWO 



LA RACR53, 

ALO D+KC.33.D ALU, 

CLKTUBCC.BYTET 

ALU?, CALL, J/READOW 

;11- 

D D+Q.LAB RCR153. 

Kr.FF3.R0R? 

;101- 

D D+LB.Q DEC. CON. 

SET.CC(L0NG).J/MURAW 



BRANCH ON 1. TIME BIT OF STATE 
GET PRODUCT-LENGTH 



GET PR0DUC1 -LENGTH 
GET LENGTH 



PRODUCT-ADDRESS 
CLOCK LENGTH 

READ-SUBROUTINE (W/WRITE-CHECK) 



GET CURRENT PRODUCT IN R15 
ADD IN o*S. TEST FOR CARRY 

BRANCH ON PSL CARRY-BIT 
ADD INTO PARTIAL PRODUCT 
CLOCK PSL-CARRY 



ADD CARRY INTO PARIAL PRODUCT 



*********************************************** 

* Patch no. 074, PCS 0D47 trapped to WCS 1192 * 
*********************************************** 



3 D+Q.Q DEC. CON, 
SET. CC (CONG) ,J/MURAW 



21713 
21714 
21715 
21716 
21717 
21718 
21719 
21720 
21721 
21722 
21723 
21724 
21725 
21726 



Q LB.LA RACR53, 

CDc.UBCCBYTE, 

CALL,J.'WRITE.MUL 



• 1 1 ****t — 

RCR53LA-KC.33 



LAB_RCR43,QJCC63 



STATE STATE. OR. K[. 43, 
ALU LA>Q,R[R43J\LU,L0NG, 
J/MOLM 



DECIMAL ADD, GET 6'S FOR ADJUSTMENT 
CLOCK C-3IT 



GET PR0DUCT-LENG1H AND PRODUCT-ADDR 
CLOCK LENGTH 
WRITE SUBROUTINE 



UPDATE ADDRESS 
GET PRODUCT-LENGTH 



SET 1. WRITE-BIT 
UPDATE PRODUCT-LENGTH 



ZZ-ESOAA-124.0 ; DECMAL.MIC C600.12043 
P1W124.MCR 600.12043 MICR02 1L(03) 
DECMAL.MIC C600. 12043 Decimal string 



Decimal string 

14-Jan-82 15:30:16 



DIVP 



D 13 
14-Jan-82 Fiche 3 Frame D13 Seguence 571 

VAX1 1/780 Microcode : PCS 01, FPLA 0E, WCS124 Page 



570 



21727 
21728 
21729 
21730 
21731 
21732 
21733 
21734 
21735 
21736 
21737 
21738 
21739 
21740 
21741 
21742 
21743 
21744 
21745 
21746 
21747 
21748 
21749 
21750 
21751 
21752 
21753 
21754 
21755 
21756 
21757 
21758 
21759 
21760 
21761 
21762 
21763 
21764 
21765 
21766 
21767 
21768 
21769 
21770 



.TOC 



Decimal string 



DIVP" 



DECIMAL DIVIDE 
ALGORITHM: 

1. FIRST THE SPECIFIERS ARE EVALUATED C DIVP. MIT") # 
AND STORED IN VARIOUS RE6ISTERS. 

2. USING THE SUBROUTINE 'DIVDR" FIRST-PART-DONE-FLAG 
IS SET CDIVFPD"), AND THE DIVISOR IS READ IN ITS 
ENTIRETY AND STORED IN RC-REGISTERS 0-3. THE DIVISOR 
IS LEFT-ADJUSTED, SO THAT THE HIGH NIBBLE OF RCO 
CONTAINS THE FIRST NON-ZERO DIGIT. 

IN THE PROCESS, THE DIVISOR IS CHECKED FOR ZERO-NESS CTJIVERR"). 

3. USING THE SUBROUTINE ' DI VND", WE READ TuE 

DIVIDEND IN ITS ENTIRETY, AND STORE IT IN ID-REGISTERS T0-T3. 

IT IS STORED ON THE STACK AS WELL, USING THE FOUR FIRST LONGWORDS. 

IN CASE OF A MEMORY FAULT, STEP 2 AND SOMETIMES STEP 3 IS REPEATED. 

4. THE ROUTINE 'DIVCV CONTROLS THE EXECUTION OF THE MAIN LOOP. 
FIRST THE LENGTHS OF THE 3 OPERANDS ARE COMPARED, CDIVCIO"), 
AND A DECISION IS MADE AS TO WHETHER WE GENERATE A LEADING 0, 
CDIVCH"), AN OVERFLOW DIGIT ( , DIVC4 ,, >, OR A REAL DIGIT CDIVC2"). 

5. iHE DIGIT IS CALCULATED USING A RESTORING ALGORITHM, 

I.E. BY REPEATED SUBTRACTION OF THE DIVISOR FROM THE UPPER PORTION 
OF THE DIVIDEND, CDVSUB"), UNTIL A BORROW RESULTS FROM THE MOST 
SIGNIFICANT DIGIT, AT WHICH POINT IT IS ADDED BACK IN ONCE CT>VAD0"). 

6. AFTER FINDING THE QUOTIENT DIGIT, WE SHIFT THE DIVIDEND ONE 
DIGIT LEFT AND STORE IT BOTH IN THE ID-BUS REGISTERS AND 
ON THE STACK. CDIVST"). 

7. FINALLY, THE ROUTINE 'DIVSAV TAKES THE DIGIT JUST GENERATED 
IN RC5 AND EITHER SHIFTS IT INTO THE HIGH NIBBLE, OR WRITES THE 
BYTE CONTAINING IT INTO THE QUOTIENT-STRING Ct>IVS01"). 
IF THIS IS THE SIGN-OVTE. THE REGISTERS ARE RESET, AND WE CLOCK THE 
CONDITION CODES CDI/Fltf 4 ). 

8. IN CASE OF A MEMORY FAULT OR INTERRUPT, THE CURRENT STATE 
OF THE INSTRUCTION IS SAVED IN GENERAL REGISTER R0-R6, 
AND THE INSTRUCTION RESUMES WHERE IT LEFT OFF. 
THE DIVISOR IS READ BAC IN, AND THE DIVIDEND IS RECOVERED FROM 
THE STACK <'DIV.R4") . 



E 13 

ZZ-ES0AA-124.0 ; DECMAL.MIC [600.12043 Decimal string H-Jan-82 Fiche 3 Frame E13 Seguence 572 
; P1U124.MCR 600.12043 MICR02 1L(03) 14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA OE, UCS124 Page 
; DECMAL.MIC [600.12043 Decimal string : DIVP 



571 



21771 
21772 
21773 
21774 
21775 
21776 
21777 
21778 
21779 
21780 
21781 
21782 
21783 
21784 
21785 
21786 
21787 
21788 
21789 
21790 
21791 
21792 
21793 
21794 
21795 
21796 
21797 
21798 
21799 
21800 



STORAGE ALLOCATION: 

RC0.RC1 ,RC2.RC3 ARE USED TO STORE DIVISOR 

ID(T0),ID<T1),ID<T2),ID(T3> ARE USED TO STORE DIVIDEND 

STACK IS USED TO SAVE DIVIDEND IN CASE OF INTERRUPTS 

IDCT53 HAS # OF NON-ZERO BYTES IN DIVISOR 

IDCT63 HAS LOU DIVISOR-ADDRESS 

IDCT73 HAS DIVISOR-LENGTH/2 

IDCT83 HAS DIVIDEND-ADDRESS 

IDCT93 HAS ORIGINAL QUOTIENT LENGTH 

R0.R1 ARE USED FOR SCRATCH DURING PROCESSING 

R2 HAS DIVIDEND LENGTH. OR. K[. 13 

R3 HAS DIVIDEND ADDRESS,LOW 

R4 HAS CURRENT QUOTIENT LENGTH , INITIALLY LENGTH 

R5 HAS QUOTIENT ADDRESS, INITIALLY LOU ADDRESS 

R15 HAS LEADING DIGIT OF DIVIDEND 

RC4 HAS # OF RC-REGISTERS USED TO STORE DIVISOR 

RC5 HAS CURRENT DIGIT OF QUOTIENT 

STATE-REGISTER: 



;INTRPT 



rOVFLOU ;END 
;OF 



INSTRU 



;1.PART ;DIV. 
rOPER.S ;INTRPT 
rREAD ; 



;QUOT. 


;DIVR. 


;0-NIB ; 


.SIGN 


;SIGN 


;IN 
.OIVISR ; 



OPCODE IS "ZT' 

MNEMONIC IS "DIVP" 

INSTRUCTION DEPENDENT ALU FUNCTION IS ,, A-B-PSL.80RR0U" 

INSTRUCTION DEPENDENT CC-CLOCKING IS: Z l.N N,V 0,C ALU CARRYCUDT3 



.._. ._.. J 



ZZ-ESOAA-124.0 ; DECMAL.MIC C600,12043 
; P1W124.MCR 600.12043 MICR02 1L(03) 
; DECMAL.MIC C600, 12043 Decimal string 



Decimal string 

14-Jan-82 15:30:16 



F 13 
14-Jan-82 



Fiche 3 Frame F13 



: DJVP 



VAX1 1/780 Microcode : PCS 01, FPLA OE, WCS124 



Sequence 573 



Page 572 



U 03CD, 0843,603C, D980.3COO,1400,6126 
U 0126, 0000,003D,DD80,3COO,1400,A37E 

U 0136, 0019,2035,6D80,F9A8,0050,047E 

U 0176, 0043,603C, E180,3D80,0000,01A2 
U 01A2, 0019.2035,A180,F800,0030,037E 
U 01B2, 0019,4035,A180,FAF8,0030,047E 
U 01F2, 0019,3A34,8DC0,FAA0, 0000. 039$ 



ENTER HERE FROM C-FORK WITH DIVISOR-LENGTH IN Q, 

AND DIVISOR-ADDRESS IN D. 

THIS ROUTINE EVALUATES SPECIFIERS AND INITIALIZES REGISTERS. 



21801 3CD: 

21802 

21803 

21804 

21805 

21806 DIVP.INIT: 

21807 IDCT63J), 
21 308 ALU Q.OXTCWORDJ , 

21809 D ALURIGHT, 

21810 STATE.FE 

21812 =010**1*' 

21813 STATE STATE-FE, 

21814 IDCT73 D,CALL,J/SPEC 

21815 ; = 

21816 =011**1* 

21817 ALU Q.AND.KC. FFFOJ, 

21818 NfcZ ALU.V&C 0,LONG, 

21819 RCCT53 ALU,CALL,J/ASPC 

21820 ; = 

21821 =111**1* 

21822 IDCT8J D, 

21823 ALU Q.OXTCWORDJ, 

21824 RCCT03 ALU.RIGHT, 

21825 J/DIV.T1 

21826 =;END 

21827 =010**1* 

21828 DIV.I1: ALU Q.AND.KC. FFE03, 

21829 N AMX.Z TST,L0NG, 

21830 CALL,J/SPEC 

21832 =011**1*'~~~~ 

21833 ALU D.AND.KC.FFE03,RCR153 ALU, 

21834 N AMX.Z TST,W0RD, 

21835 CALL,J/*SPC 

21837 =111**1*' 

21838 ALU Q.AND.KC. 1F3,Q_ALU, 

21839 RZRZl ALU, LONG, 

21840 PSL.Ct?,J/DIV.l2 

21841 =;END ; 



SAVE DIVISOR-ADDRESS IN T6 
ISOLATE LENGTH 
DIVIDE LENGTH BY 2 
USE TO CLEAR STATE 



CLEAR STATE-REGISTER 
SAVE LENGTH/2 IN T7 



MASK OUT LOW 4 BITS 

CLOCK Z-BIT 

CLEAR RC5,GET DIVIDEND-ADDRESS 



SAVE DIVIDEND-ADDRESS IN T8 
SAVE DIVIDEND LENGTH IN RCO 
SHIFT BACK LATER 



MASK OUT THE ILLEGAL BITS 
• W RESULT INTO Z-BIT 
EVALUATE QUOTIENT-LENGTH 



CLEAR R15 

CLOCK QUOTIENT LENGTH 

EVALUATE QUOTIENT-ADDRESS 



ISOLATE QUOTIENT-LENGTH 

SAVE IT IN R4 

TEST FOR ILLEGAL LENGTHS 



U 0399, 0000,003C, 01 80. F 800, 0000, 01 06 

U 0390, OCO1,OO3C,E1F0,2EA8,0OO0,0C0A 

U 0C0A. OFO1,2O3C.E580,3E98,0OO0.0C0C 
U OCOC, 001F,2000,0180,F900,0070,01AO 

U 01A0, OC30,0039,03F8.FA90.0000,09CO 

U 01B0, 0000.003D,8580,FA18,1604.4C21 



6 13 
ZZ-ESOAA-124.0 ; DECMAL.MIC C600.12043 Decimal string m H-Jan-82 
; P1U124.MCR 600.12043 MICR02 1L(03) 14-Jan-82 15:30:16 
; DECMAL.MIC C600. 12043 Decimal string : DIVP 



Fiche 
VAX1 1/780 Microcode 



21842 

21843 =10** .-BRANCH ON PSL 2-BIT 

21844 ;10**- 

21845 DIV.I2: J/RSVOPR 

21846 ;11**- 

21847 ALUJ>.RCR53 ALU.L0N6, 

21848 D.Q.Q.IDCT83 

21849 =;END ; 

21850 ALU_Q.RCR33_ALU.LON6, 

21851 IDCT93J),D 

21852 ; 

21853 L C,RCCT 3.ALU.O-D.S ET.CC(L0N6) 

21855 =00**0 ' """" 

21856 ALU LC.RCR23 ALU.LEFT, 

21857 SI/flUL-,D Q, 

21858 Q.O.CALL.J/DIVDR 

21860 =10**0 

21b61 DIVCO: STATE STATE. ANDN0T.KC.C3, 

21862 VA RC&33. 

21863 CAO..J/DIVND 

21 864 ; 



3 Frame 613 Sequence 574 

: PCS 01. FPLA OE. WCS124 Page 573 



ILLE6AL LEN6THS 

STORE QUOTIENT-ADDRESS 
6ET DIVIDEND-ADDRESS 

STORE DIVIDEND-ADDRESS IN R3 
SAVE LEN6TH IN T9 

SET C-BIT 

INITIALIZE DIVIDEND-LENGTH 
ROUTINE TO LOAD DIVISOR IN RC 



CLEAR SIGN-BIT 

LOAD DIVIDEND-ADDRESS 

READ DIVIDEND INTO ID AND STACK 



ZZ-ESOAA-124.0 ; DECMAL.MIC C600. 12043 Decimal string 14-Jan-82 Fiche 3 Frame H13 Seguenc 

; P1W1 24. MCR 600.12043 MICR02 1L(03) 14-Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01. FPLA 0E. WCS1 24 Page 574 

; DECMAL.MIC C600. 12043 Decimal string : DIVP 



H 13 



ice 575 



Li 01B8, 0000.003C.3180.F800.1404.21B9 
U 01B9. O8OO.0O3C.D5FO,2E10,00OO.0COD 

U OCOD, 081D, 0000.6580, F8A0, 5404. 2C0E 
U OCOE. 081 CAEOO, 0180. F6O0.001C.0D56 

U 0D56, 0010.1B38.C5CO.F920. 1486.4423 
U 0D57. 0000.003C,.580,F800,1404.29C1 

U 0423. 0000,003C,01CO,. C A20,0000.0437 

U 0427. 0019,2031. 7980.F800.0192.0D97 

U 0428, 0019,2031, 7980.F800.0192.0D97 
U 0437, OC18,8000,0580,FAA0.0010,OC42 

U 0436, 0010,8038,0180,F928,0010,0C10 
U 0C10, 0003,013C, 0-!80,F9A8, 0000, 0188 



21865 
21866 
21867 
21868 
21869 

21870 =11**0 

21871 DIVC01: STATE_STATE.OR.KC.403 

21872 ; = 

21873 DIVC1: ALU .RCR23.D ALU. 

21874 Q IBCT53, 

21875 J7DIVC10 

21876 =;END 

21877 DIVC10: STATE STATE. OR.KC. 103, 

21878 INTRPT. STROBE. 

21879 ALU D-Q.D ALU. 

21880 LA.RACR43 

21881 

21882 

21883 

21884 

21885 

21886 =110 ;BRAWCH ON INTERRUPT REQUEST 
; 110 

STATE STATE.ANDNOT.KC. 883 , 

SC RCtT43.Q RCCT43. 

BEN7ALU,J/DTVC11 

;111 

STATE_STATE.OR.KC. 883, 

J/DIV.MEMORY. FAULT 



ROUTINE WHICH CONTROLS THE EXECUTION OF THE DIVIDE-INSTRUCTION 
CALLS THE NECESSARY SUBROUTINES, TO READ AND LOAD DATA, 
CALCULATE NEW DIGITS, AND UPDATE TEMPORARY STRINGS. 
R2 HAS DIVIDEND LENGTH. OR. KL. 13 
IDCT53 HAS DIVISOR-LENGTH 

SET OVERFLOW-BIT OF STATE 

GET DIVIDEND LENGTH 
GET DIVISOR-LENGTH 



SET 1.PART FLAG 
STROBE FOR INTERRUPTS 
DIVIDEND. LENGTH-DIVISOR. LENGTH 
GET PRODUCT-LENGTH 



ALU_LA-D, 

D_ACU.CLK.UBCC.BYTE. 

BEN/INTERRUPT 



21887 
21888 
21889 
21890 
21891 
21892 
21893 

21894 =;END 

21895 =00011 .-BRANCH ON ALU Z AND N-6ITS 

21896 ; 00011- 

21897 DIVC11: Q RCR43.J/DIVC2 

21898 .-00111- 

21899 FE SC.ALU Q.OR.KC.303. 

21900 CLR.L3CC.5C ALU. 

21901 CALL.J/DVSUB 

21902 ; 01 011 

21903 FE SC.ALU Q.OR.KC.303, 

21904 CLR.U3CC.5C.ALU. 

21905 CALL.J/DVSUB 

21 906 =1 01 1 1 ; 1 01 1 1 

21907 DIVC2: RCR43 LA-KC.13.CLK.UBCC8YTE, 

21908 D Q.J7DIVSAV 

21909 ;Tl6l1 

21910 =11011 ALU RCCT53, 

21911 CLKTUBCCBYTE, 

21912 J/DIVC4 

21913 =;END ; 

21914 DIVC4: RCCT53 0,Z?, 

21915 J/DIVC01 

21 91 6 



CLOCK THE DIFFERENCE 

TEST FOR INTERRUPT REQUESTS 



CLEAR INTERRUPT-BITS OF STATE 

GET RC-COUNT 

TEST THE DIFFERENCE 

SET INTERRUPT-6IT, AND DIV.INTR. 
JOIN MEMORY FAULT ROUTINE 



RC5 IS 

GET ID-BUS POINTER 

STORE IT IN SC 

CALCULATE AND WRITE QUOTIENT DATA 

GET ID-BUS POINTER 

STORE IT IN SC 

CALCULATE OVERFLOW DIGITS 

UPDATE DST-LENGTH 
WRITE QUOTIENT-DIGIT 

GET OVERFLOW-DIGIT 
CLOCK DIGIT 



CLEAR IT, TEST IT 
FOR OVERFLOW 



ZZ-ESOAA-124.0 ; DECMAL.MIC C600, 12043 Decimal strim 

P1U124.MCR 600,12043 MICR02 1LC03) H-Jan-32 



DECMALJUC [600,12043 



Decimal string 



: DIVP 



I 13 

?14-Jan-82 Fiche 3 Frame 113 Sequence 576 

5:30:16 VAX1 1/780 Microcode : PCS 01, FPLA OE, WCS124 



Page 575 



U 09C0. 0O00,0O3D,D9FO,2CO0,000O,0C12 

U 09C1, 0818.003h,6180,FA78,OOOO.OCBA 

U 09C2, 0818,0034,6180,FA78.0000.0C8A 
U 09C3, OCOO,003C,DDFO,2COO,OOOO.OC11 

U 0C11, OF01.203C,B580,3COO,0082.0A4E 

U 0C12, 0001,203E,81FO,2E88,2600,0003 

U 0D63, 0819.0F34,CD8O.F8O0,O01O,09DA 
U 0D67, OOOF,1810,0D8O.FA88,1604,4A4E 



21917 
21918 
21919 
21920 
21921 
21922 
21923 
21924 
21925 
21926 
21927 
21928 
21929 
21930 
21931 
21932 
21933 
21934 
21935 
21936 
21937 
21938 
21939 
21940 
21941 
21942 
21943 
21944 
21945 
21946 
21947 
21948 
21949 
21950 
21951 
21952 



=00 
DIVDR: 



ROUTINE WHICH READS DIVISOR AND STORES IT IN RC 

LEFT ADJUSTED, SO THAT HIGH NiBBLE OF RCO IS NON-ZERO. 

EXPECTS DIVISOR-LENGTH/2 IN T7, ADDRESS IN T6 

RC4 HAS # OF REGISTERS USED TO STORE THE DIVISOR (0-3) 

R1 IS USED TO STORE DIVISOR-ADDRESS, INITIALIZED TO LOU ADDRESS-1 

RC6 IS USED FOR NON-ZERO DIVISOR-LENGTH 

RETURNS # OF NON-ZERO DIGITS-1 IN T5 



Q IDCT63,CALL,J/DIVFPD 
;01- 



DIV. MEMORY . FAULT: 

ALU _RCR153.AND.KC.F3,D ALU, 
J/DlV.SAVE 

ALU RCR153.AND.KL".F3,D ALU, 

J/DlV.SAVE 

;11- 



=;END 



D.Q,Q.IDCT73 

SC Q,IDCFPDA3 D, 
DjJ,J/DIVDO 



DIVFPD: ALU Q,RCR13 ALU,VAJC/LOAD, 

SET . FPD ,Q_l5CUSTACK3 ,RETURN3 



=011 
DIVR: 



BRANCH ON SC NE 

011- 
ALU D.AND.KC.F03, 
D ACU,CLK.UBCC, 
Btt)SGN?,J/DIVD6 

ALU O+LB+1 ,RL*R13_ALU,L0NG, 

VAK7L0AD, 

STATE STATE. ANDNOT.KL". 33, 

D.B0?,J/DWD0 



Q GETS DIVISOR-LENGTH 

ENTER HERE ON FAULTS AND INTERRUPTS 
SAVE NIBBLE FROM R15 



SAVE NIBBLE FROM R15 

GET DIVISOR-LENGTH 
STORE RESTART ADDRESS 



LOAD DIVISOR-ADDRESS 

LOAD FAULT ADDRESS, SET 1. PART DONE 



STRIP OFF SIGN-NIBBLE 

SIGN-8VTE, CHECK FOR DIVISOR 

LOAD DIVISOR-ADDRESS 

CLEAR O-NIBBLE BIT 
TEST D FOR 



ZZ-ESOAA-124.0 ; DECMAL.MIC [600,12043 
; P1U124.MCR 600.12043 MICR02 1L(03) 
; DECMAL.MIC C600. 12043 



Decimal striro 
14-Jan-82 
Decimal string : DIVP 



J 13 
g 14-Jan-82 Fiche 
14-Jan-82 15:30:16 VAX11/780 Microcode 



U 0A4E, 0098,8C38.0580.4320.0084.AD63 
U 0A4F, 0019,8024 .6180.F800.0010.0C13 

U 0C13. 083B.0110.1DEO.F800.0000.0834 

U 0834. 0C5F,2O0O.D4C0,3CO0,0000,0C14 
U 0835. 0819.0000,0580, F800.1404, 2834 
U 0C14, 001 F. 0010. 7DF8.F9BQ. 0194, 6C16 
U 0C16. ODOO,003C,0180,F930,0181,OA5B 



21953 =1110 .-BRA NCH ON LOW BYTE OF D HE. 
21955 DIVDO: DCBYTED CACHE. ALUJCC. 13, 



LAB R1 «CL*T4D_ALU7RIGHT2. 
SC.5C-KC.13. 
SC.NE .0?,J/D1VR 

ALU D.ANDN0T.KC.F3, 
CU.UBCC.BYTE 



ALU.0+KCSO1 . 

Q.D.D.ALU.LEFT. 

Z? 



BRANCH ON ALU Z-BIT 



21956 

21957 

21958 

21959 

21960 

21961 

21962 =;tND 

21963 

21964 

21965 

21966 

21967 =0 

21968 

21969 DIVD01: IDCT53 D. 

21970 ALU 0-B.Q ALU.RIGHT.D Q. 

21971 SI/ASHR.J7DIVD02 

21972 ;1 

21973 ALU DHCC.13.D ALU. 

21974 STATE STATE. OR.KC. 13, 

21975 J/DIV0O1 

21976 =;END ; 

21977 DIVD02: SCKC.183.FEKC. 183. 

21978 ALO O+Q+1 ,RCrTn_ALU. 

21979 O.CLK.UBCC 

21980 ;=- 

21981 DIVD03: SC FE.FE SC, 

21982 LC RCCT63.D DAL.SC, 

21983 J/&IVD1 

21984 ; 



3 Frame J13 Seguence 577 

: PCS 01, FPLA OE, WCS124 Page 576 



READ NEXT BYTE FROM DIVISOR 
6ET ADDRESS, CLEAR RC4 
DECREMENT COUNT 
TEST LENGTH 



CLOCK HIGH NIBBLE 

ADJUST LENGTH 

MAKE IT NIBBLE-COUNT AGAIN 

TEST HIGH NIBBLE 



SAVE LENGTH IN IDCT53 
KLUDGE TO INITIALIZE LENGTH 
IN RC6 

ADJUST NIBBLE-COUNT FOR LEADING 
REMEMBER TO LEFT-ADJUST LATER 



SET UP COUNTERS FOR LOOP 
NEGATIVE CYTE-COUNT 



LOAD NEGATIVE COUNT IN LC 
LEFT-ADJUST THE BYTE WE ALREADY READ 



U 0A58. 0011,A110,01E0,4330,0195,A838 
U 0A5F, 0610,0038,0180, F920,0082,0C18 



K 13 
ZZ-ESOAA-124.0 ; DECMAL.MIC C600.12043 Decimal string 14-Jan-82 
; P1U1 24. MCR 600.12043 MICR02 1L(03) 
; DECMAL.MIC [600,12043 Decimal string 



ig 14- 
H-Jan-82 15:30:16 
: DIVP 



Fiche 3 Frame K13 Seguence 578 
VAX1 1/780 Microcode : PCS 01, FPLA OE, WCS124 



Page 577 



U 0838, ODOF,1210,01F8,F880,0381,0A58 
U 0839, 0819,OF24,6180,F800,0000,09D2 
U 0C18, OF01,003C,0180,F838,0081,OC19 

U 0C19, OF13,0010,01F8,F9AO,0104,8C16 

U 09D2, 0D00,003C,0980,F800,1404,4C1A 
U 09D3, ODOO,003C,0980,F800,1404,2C1A 

U 0C1A, 0800, 003C,01F8,F800, 0181 ,0C1C 
U 0C1C, 0010,1738, ED80,F920, 0082, 0A6E 



21985 

21986 

21987 

21988 =1011 

21989 

21990 DIVD1: DC8YTE3 CACHE, 



RCCT63 HAS NEGATIVE COUNT 

ENTER HERE AFTER FINDING NON-ZERO BYTE 



BRANCH ON EALU Z-BIT 
1011- 



21991 
21992 
21993 
21994 
21995 
21996 
21997 
21998 
21999 

22000 =;END 

2200 1 =0 
22002 

22003 DIVD2: 

22004 

22005 

22006 

22007 

22008 

22009 

22010 

22011 

22012 =;END 



FE SC-Kt.83, 

ALQ_0+LC+1 , 

LAB R18RCCT63_ALU, 

SC PE,0 D, 

CLR.UBCC\Z?,J/DIVD2 

;1111- 

SC RCCT43,D D.SWAP, 
J/0IVD3 



BRANCH ON ALU Z-BIT 



D DAL.SC, 

AEU O+LB+1 , 

LC RCCT638R1.ALU, 

VAK/LOAD,Q 0, 

SC FE,FE St, 

EACU?,J/5IVD1 

;1- 



DD.ANDN0T.ICC.F3, 
BCDSGN?,J/DIVD4 



22013 DIVD3: ALUJ),RC<SC)_ALU, 

22014 D_0,SC_FE 
22015 
22016 
22017 
22018 
22019 
22020 =10 
22021 

22022 DIVD4 
22023 
22024 
22025 
22026 
22027 

22028 =;END 

22029 DJVD31: D D.SWAP, 

22030 St FE,FE SC, 

22031 Q 

22032 ;= 

22033 D DAL.SCSC RCCT43, 

22034 Kr.183,STATE3-0? 

22035 ; 



RCCT43 O+LC+1 , 
FE SC+RC.83, 
D.O,0 0,J/DIVD03 



BRANCH ON BCD-SIGN 

STATE STATE .ANDNOT.KC. 23. 

D DAL.SC, 

J7DIVD31 

STATE STATE. OR.KC. 23, 
D_DAL.SC 



READ BYTE FROM DIVISOR 

UPDATE COUNT 

UPDATE DIVISOR-LENGTH 

GET DIVISOR ADDRESS, STORE LENGTH 

TEST DIVISOR-LENGTH 

LONGUORD IS COMPLETE, STORE IT 
GET RC-POINTER, PUT DATA IN 
ARITHMETIC ORDER 



SHIFT IN NEW BYTE 
INCREMENT ADDRESS 
GET LENGTH, STORE ADDRESS 
LOAD DIVISOR-ADDRESS 

TEST FOR COMPLETE LONGWORD 

SIGN-BYTE 

STRIP SIGN-NIBBLE, TEST SIGN 

STORE LONGUORD IN RC-REGISTER 



INCREMENT RC-POINTER 
UPDATE SHIFT-CONSTANT 
FOR LATER LEFT ADJUSTMENT 



CLEAR DIVISOR-SIGN 
MERGE WITH OLD DATA 



SET DIVISOR-SIGN 
SHIFT DATA INTO PLACE 

PUT LONGWORD IN ARITHMETIC ORDER 

GET READY FOR SHIFT 

LEFT ADJUST, GET RC-POINTER 
CHECK ODD NIBBLE BOUNDARY 



ZZ-ESOAA-124.0 ; DECMAL.MIC C600.1204!) 
; P1U124.MCR 600-12043 MICR02 1L(03) 

; DECMAL.MIC C600,1204D 



U 0A6E. 0001,003E,0180,F838,0000.0010 
U 0A6F, OF1B,0008.EDEO,F800,0192,OC1D 
U 0C1D, ODOO,123C,0180,F800,0181,OA78 

U 0A7B, 0001,003C.0580,F838,0094.AC1E 
U 0A7F, 0001 .003E . 0180, F838.0000, 0010 

U 0C1E, OC10,0038.01CO,F830,0181,OC1D 



Decimal string 14-Jan-82 

14-Jan-82 15:30: 
Decimal string : DIVP 



L 13 

Fiche 3 Frame L13 
16 VAX1 1/780 Microcode 



Sequence 579 
PCS 01, FPLA OE, WCS124 Page 578 



U 09DA, 0803,003C, 0980, F9A0, 1404, 4C20 

U 09D8, 0803,003C ,0980,F9AO,1404,2C20 
U 0C20, OFO1,O13C,31F0,2D80,0O0O,083C 

U 083C, 0000,003E.D580.3COO,0000,0010 
U 083D, 0819,2030,31 80, F 800. 0000, 0828 



22036 =1110 .-BRANCH ON 0-NI8BLE-BIT 

22037 ;1110 

22038 ALU D,RC(SC)J\LU, 

22039 RET0RN10 

22040 ;1111 

22041 FE SC.ALU 0-KC. 183-1 ,SC_ALU, 

22042 OK.UBCC.O.D.DJ) 

22043 =;END ; 

22044 DIVD32: D DAL.SC. 

22045 St.FE.FE SC.EALU? 

22046 ;-= = 

22047 =1011 .-BRANCH ON EALU Z-BIT 

22048 ;1011 

22049 ALU .D.RCCSC) ALU, 

22050 SC 5C-KC.1J.C\K.UBCC,J/DIVD33 

22051 ;1T11 

22052 ALU D,RC(SC) ALU.RETURN10 

22053 =;END 



STORE LAST LONGUORD IN RC 

GENERATE CONSTANT -28. FOR SHIFTING 



SHIFT ONE NIBBLE 
FINISHED ? 



STORE RESULT OF SHIFT IN RC 
DECREMENT COUNT TO GET PREVIOUS REG 

LOAD LAST REGISTER, RETURN 



GET NEXT RC-REGISTER 
KEEP LOOPING 



22054 DIVD33: D Q.ALU RCCSO.Q ALU, 

22055 St.FE,FP SC.J/DIVD32 

22056 ;-= = 

22057 ; ENTER HERE IF SIGN-BYTE IS FIRST NON-ZERO BYTE 

22058 =10 .-BRANCH ON BCD-SGN 

22059 ;10 

22060 DIVD6: 

22061 STATE STATE.ANDN0T.KC.2J, 

22062 RCCT43 0,D D.SUAP. 

22063 J/DIVD51 

22064 ; 1 1 

22065 STATE STATE. OR. Kl". 23, 

22066 RCCT43 0,D D.SUAP, 

22067 J/DIVD51 

22068 =;END ; 

22069 DIVD61: RCl"TOJj),D_0,Q IDCCESJ, 

22070 Z? " 

22072 =0 ;BRANCH ON ALU Z-BIT 

22073 ;0 

22074 IDCT53 D.RETURN10 

22075 ; 1 = 

22076 DIVERR: ALU Q.OR.KC.40D.D ALU. 

22077 J/FTNI6 
2207B =;END ; 



CLEAR DIVISOR-SIGN-BIT 
LEFT-ADJUST BY SWAPPING 



SET DIVISOR SIGN-BIT 
LEFT-ADJUST BY SWAPPING 



STORE SINGLE NIBBLE, GET CES-REGISTER 
TEST SINGLE NIBBLE 



0K-N0N-Z:'R0 DIGIT 

DECIMAL DIVIDE BY 
TRAP CODE IS 4 



ZZ-ESOAA-124.0 ; DECMAL.MIC C600.12043 
; P1W124.MCR 600,12043 MICR02 1L(03) 
; DECMAL.MIC C60O.12O43 Decimal string 



U 0C21, 0840.003C.7D80.F890.0184.6C22 
U 0C22, 001F.2000,0180,F980,0094,8C23 
U 0C23. OOOC.0038,01F8,FBBO,0200,OA8B 



Decimal string 

14-Jan-82 15:30:16 
: DIVP 



n 13 
K-Jan-82 



Fiche 3 Frame M13 



Seguence 580 



VAX1 1/780 Microcode : PCS 01. FPLA 0E, WCS124 



Page 579 



U 0A8B, 0011. All 0.01 EO.4330,01 95 .A844 



U 0A8F, OB18.OO3O,79C0,FA78,0082,0C24 



U 0844, 0DOF,121O,01F8,F8B0,0381,0A8B 
U 0845. 0819.0F24.6180.F800.0000.09E2 



22079 

22080 

22081 

22082 

22083 

22084 

22085 

22086 

22087 

22088 

22089 

22090 

22091 

22092 

22093 

22094 

22095 

22096 

22097 

22098 

22099 

22100 

22101 

22102 

22103 

22104 

22105 

22106 

22107 

22108 

22109 

22110 

22111 

22112 

22113 

22114 

22115 

22116 

22117 

22118 

22119 

22MQ 



DIVND: 



=1011 
DIVN3: 



=;END 
=0 

DIVN4: 



=;END 



ROUTINE WHICH READS DIVIDEND AND LOADS IT INTO 

ID-REGISTERS AND STACK. 

R1 IS USED TO STORE DIVIDEND-ADDRESS .INITIALLY LOU ADDRESS 

RC6 IS USED FOR DIVIDEND-LENGTH DURING INSTRUCTION 

RC7 IS USED FOR # Of LONGUORDS ON STACK (30-33). INITIALLY 30 

R2 HAS DIVIDEND-LENGTH (# Of NI8BLES-1) 

RCSP3 HAS ORIGINAL STACK-POINTER-16. (R14) 

DATA IS WRITTEN ON STACK IN ARITHMETIC ORDER. 



SC_KC.183.FEKC.183. 
L A.RACR23 .A L0_LA.D,ALU. RIGHT 

RCC63 O-D . SC.SC+KC . 83 . 
C LK.UBCC 

ALU LB.VAK/LOAD.O 0. 
LC _RCCT63*R1_ALU 



BRANCH ON EALUZ-eiT 

DC8YTE3.CACHE.Q D. 

FE SC-Kt.83,SC_PE. 

ALO Q+LC*1 .LAB R18RCCT63 ALU, 

CLK.UBCC, 

Z?.J/DIVN4 

;1111- 

ALU RCR153.OR.KC.303. 

sc Alu.q.alu.d.d.swap, 

J/&IVN5 



BRANCH ON ALU Z-8JT 



D DAL. SC.Q 0. 
ACU O+LB+1 , 
LC_RCCT63ftR1J\LU, 
SC FE.FE.SC, 
VAR/LOAD, 
BEN/EALU.J/DIVN3 

6 D.ANDNOT.KC.F3, 
B?DSGN?,J/DIVN8 



DIVIDE LENGTH BY 2 

INITIALIZE COUNTER 
WITH DIVND. -LENGTH 



LOAD DIV. ADDRESS 



READ BYTE OF DIVIDEND 
UPDATE COUNTER 
INCREMENT COUNTER (0=0) 

TEST FOR END OF STRING 

LONGWORD COMPLETE 

GET DATA IN ARITHMETIC ORDER 

STORE DATA IN ID-REGISTER 



SHIFT NEW BYTE INTO LONGWORD 

INCREMENT ADDRESS 

GET LENGTH. STORE ADDRESS 

LOAD DIVIDEND-ADDRESS 

TEST FOR A COMPLETE LONGWORD 

THIS IS SIGN-BYTE 
TEST SIGN-NIBBLE 



N 13 
ZZ-ESOAA-124.0 ; DECMAL.MIC C600, 12043 Decimal string 14-Jan-82 
; P1W124.MCR 600-1204] MICR02 1L(03) 14-Jan-82 15:30:16 
; DECMAL.MIC C600. 12043 Decimal string : DIVP 



Fiche 3 Frame N13 
VAX1 1/780 Microcode : PCS 01, FPLA 0E, UCS124 



Sequence 581 



Page 580 



U 0C24, 0079,201 C,0DC0,3670,O00O,0C25 
U 0C25, O00D,2O14,0180,F888,020O.0C28 

U 0C28, 001B.0010.1DF8,32F8,0081,OC29 
U 0C29. 0O0O.OO3C,0180,F930,0284,8A8B 

U 09E2, 0D00.0O3C ,0980, F800,1 404, 8C2A 
U 09E3, 0D0O,0O3 ,D580,F800,1404,8C2A 
U 0C2A, 0800,003C,01F8,F800,0181,OC2C 
U 0C2C, 0D18,OO3O,79CO,FA78,O082,0C2D 

U 0C2D, 0079,201 C,0DC0,3670,O081,OC2E 
U 0C2E, 001C,0014,0180,F800,0200,OC30 

U 0C3O, 0003,003C,6580,32F8,0084,6C31 
U 0C31, 0018,0002, 1D80,FAF 0,0000, 0009 



22121 .-ENTER HERE TO STORE LONGWORD ON STACK AND IN ID-REGISTER 

22122 DIVN5: LAB.RCSP3, 



22123 

22124 

22125 

22126 

22127 

22128 

22129 

22130 

22131 

22132 

22133 

22134 

22135 

22136 

22137 

22138 

22139 

22140 =10 

22141 



ALU Q.ORNOT.KC.33, 
SHF7ALU.DT,LONG, 
QK/SHF, 
IP(SC)J> 

VA.Q+LB, 
LA.RACR13 

CACHE.DCLONG3, 
ALU 0+KCSC3+1 , 
RCRT53ALU, 
SC_FE,3j) 

ALU LA,IC RCCT63, 
VAK7lOAD,5C_SC+KL.83, 
J/DIVN3 _______ 

'•BRANCH ON BCD-SIGN 
;1C 



22142 DIVN8: STATE.STATE+KC.23, 
*»'"" D DAL.SCJ/DIVN9 

;T1 

STATE.STATE+KC.63, 
D_DAL.SC 



22143 
22144 
22145 
2?146 
Z2147 =;END 

22148 DIVN9: D D.SUAP, 

22149 



22150 
22151 
22152 
22153 
22154 
22155 
22156 
22157 
22158 
22159 
22160 
22161 
22162 
22163 
22164 
22165 
22166 
22167 
22168 



St_FE,FE_SC,QJ) 

6 DAL.SCALU_RCR153.OR.KC.303, 
St_ALU,Q_ALU 

LAB.RCSP3, 

ALU Q.0RN0T.KC.33, 

SHF7ALU.DT,LONG, 

QK/SHF f 

ID(SC) D,SC FE 



VA_LA+Q 

ALU 0(A),RCR153 ALU, 

CAtnC_I\ r L0NG3, 

SC KC. 103 



ALU LA-KL'SC3,RCSP3.ALU, 
RET0RN9 



GET NEGATIVE COUNT 
GENERATE STACK ADDRESS 

STORE IN ID-REGISTER 

LOAD STACK-ADDRESS 



WRITE LONGWORD ON STACK 
INCREMENT ID-POINTER 
STORE IT IN R15 



GET DIVIDEND-LENGTH 
RE-INITIALIZE COUNTER 
REENTER LOOP 



DUPLICATE DIVISOR-SIGN 
SHIFT DATA IN 

COMPLEMENT DIVISOR SIGN-BIT 

GET DATA IN ARITHMETIC ORDER 

LEFT ADJUST, GET ID-POINTER 

GET STACK-POINTER c 
GENERATE STACK-ADDRESS 

LOAD STACK-ADDRESS 

INITIALIZE R15 

WRITE LAST LONGWORD ON STACK 

CONSTANT TO UPDATE STACK POINTER 

RESERVE 16 BYTES ON STACK 



ZZ-ESOAA-124.0 ; DECMAL.MIC C6OO.12043 Decimal strin 

P1W124.MCR 600,12043 MICR02 1L(03) 14-Jan-82 

: DIVP 



; DECMAL*MIC [600. 12043 Decimal string 



B 14 
g 14-Jan-82 Fiche 3 Frame B14 Seguence 582 

15:30:16 VAX1 1/780 Microcode : PCS 01, FPLA OE. WCS124 Page 581 



U 0C32, 081D,320C,09D0,F928.00F4.AA98 



U 0A9B, C 'ID. 0000, 01FO, 2430,0080, CC33 
U 0A9F, 081D,0200,0180,FA78.0080.CD75 



U 0D75, 0018, 8000. 0580.FAF8, 0070. 0D77 
U 0D77, 0013. 0210.01 80.35A8. 0080. 8D95 
U 0C33. 0810.0038.AD80.3400.0014.8C32 



22169 
22170 
22171 
22172 
22173 
22174 
22175 
22176 DVSUBO: ALU QCINST.DEP3D,D ALU. 



22177 
22178 
22179 
22180 
22181 
22182 
22183 
22184 
22185 
22186 
22187 
22188 
22189 
22190 
2219^ 
22192 
22193 
22194 
22195 
22196 
22197 
22198 
22199 
22200 
22?01 
22202 
22203 
22204 
22205 
22206 
22207 
22208 
22209 



.•ROUTINE WHICH 6ENERATES A DIGIT OF QUOTIENT DEPENDING ON 

;RC AND ID AND R15 (HIGH NIBBLE OF DIVIDEND). 

.•SAVES DIGIT IN RC5 

.-RCCT43 HAS NUMBER OF LONGWORDS USED IN RC (0-3). 

;FE STORES THIS NUMBER DURING THE ROUTINE. 



Q DEC. CON. 

St SCHCC.23, 

LC RCCT53, 

SET. CC (LONG) .BEN/EALU 



=1011 
DVSUB01 : 



BRANCH ON EALU Z-BIT 
1011- 



=;END 



D D-Q. 

Ll RC(SC). 

Q TD(SC), 

St SC+1.J/DVSUB1 

;1T11- 

SC SC-H. 

D 5-0. LAB RCR153.ROR? 



SUBTRACT WITH BORROW 
STORE DECIMAL CONSTANT 
ADJUST RC ADDRESS POINTER 
GET CURRENT DIGIT 
TEST POINTER 



DECIMAL ADJUST FOR SUBTRACTION 
GET LONGWORD FROM DIVISOR 
AND LONGWORD FROM DIVIDEND 
READJUST ADDRESS 

ADJUST ADDRESS 

DECIMAL ADJUST, TEST FOR BORROW 



*********************************************** 

* Patch no. 072, PCS 0A9F trapped to WCS 1191 * 
*********************************************** 



=101 



=;END 
DVSUB1 



BRANCH ON PSL C-6IT 

101 — 
RCR153 LA-KC13, 
SET.CCTBYTE) 

ID(SC) D.RCCT53 0+LC+1, 
SC_SC+FE ,R0R?,J7DVSUB2 



ID(SC) D.EALU SC+KC.DFCF3, 
D_L C . CCK . UBC C . J /D VSUBO 



BORROW-SO TRY LEFT-OVER DIGIT 
CLOCK PSL C-BIT 

NO BORROW-INCREMENT QUOTIENT 
TRY AGAIN 

KEEP LOOPING 



ZZ-ESOAA-124.0 ; DECMAL.MIC C600.12043 
; P1W124.MCR 600.12043 MICR02 1L(03) 

; DECMAL.MIC C600. 12043 



Decimal strin 
14-Jan-82 
Decimal string : DIVP 



C 14 
g 14-Jan-82 Fiche 

14-Jan-82 75:30:16 VAX11/780 Microcode 



U 0D95, 0013,0014,01DO,F9A8.0000,OC36 
U 0D97, 0810,0038,O1F0,243O.0O10,6C34 

U 0C34, 081D,320C,05DO,F928,OOF4,AA9B 
U 0C36, OCOO,003C,11F0.2430»01C4,6C38 

U 0C38, 081D,0014,798G.FA70,0014,AC39 
U 0C39, 0811,002C,05D0,F80O.0OF4,AC3A 

U 0C3A, 081D, 1200, 01FO,2430, 0080, CAAB 

U OAAB, 081F,0014,05DO,3400.0084,AC38 
U OAAF, OOOC, 0038, 01E0,F8Q0. 0381, CC38 



22210 =101 .-BRANCH ON PSL C-8IT 

2221 1 ; 1 01 

22212 DVSUB2: ALU 0+LCRCCT53 ALU, 



22213 

22214 

22215 DVSUB: 

22216 

222^7 

22218 =;END 

22219 

22220 

22221 

22222 

22223 

22221* 

22225 DVAD: 

22226 

22227 



22229 

22230 

22231 

22232 

22233 

22234 

22235 

22236 

22237 

22238 

22239 =1011 

22240 

22241 

22242 

22243 

22244 

22245 

22246 

222U7 



Q DEC.C0N,J/DVA5 

;T11 

LC RC(SC),ALU LC, 
D *LU,Q_ID<SC7, 
EALU_FE,CLK.UBCC 



ALU QCINST.DEP3D,D ALU, 
CJ DEC.C0N,SC_SC-KC713, 
Lt RCCT53, 

set. cc (long: ,ben/ealu, 

J /DVSUB0 1 

LC RC(SC),Q ID(SC), 
D.5,FE_KC43 



22228 DVADO: D D+Q, 



E*LUSC-KC.303. 
CLK.J3BCCLAB.RCSP3 



D D+LC+PSL.CQ DEC. CON, 
St.SC-KC.13 ,S£T.CC(L0N6) 

D D-Q, 

LC_RC(SC),0 ID(SC), 

SC.SC+1 ,BEN7EALU 

• BRANCH ON EALU Z-8IT 

ALU 0+U,D ALU,Q DEC. CON, 
ID(SO.D,5C ,SC-gC.l J,J/DVAD0 

ALU LB,VA ALU,LA RACR23, 
FE 5C+1,SC FE.Q B, 
J/5JVST 



3 Frame C14 Seguence 583 

: PCS 01, FPLA OE, WCS124 Page 



STORE NEW DIGIT 
GENERATE ALL 6'S 



582 



GET DIVISOR LQNGWORD 
GET DIVIDEND LONGUORD 



SUBTRACT WITH BORROW 
STORE DECIMAL CONSTANT 
GET DIGITS 
TEST ADDRESS POINTER 



GET OPERANDS FOR RESTORING PORTION 
D GETS 6'S 

ADD 6'S TO DIVIDEND LONGWORD 

COMPARE SC WITH LOU LIMIT 

GET STACK POINTER READY FOR STORING 

ADD WITH CARRY 
CLOCK CARRY 

DECIMAL ADJUST 
GET NEXT OPERANDS 
TEST POINTER 



KEEP ADDING 



ZZ-ESOAA-124.0 ; DECMAL.MIC C600,12043 
P1W124.MCR 600,12043 MICR02 U(03) 
DECMAL.MIC C600, 12043 Decimal string 



D 14 
Decimal string 14-Jan-82 Fiche 3 Frame D14 Seguence 584 
14-Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01, FPLA OE, WCS124 Page 
: DIVP 



583 



U 0C3B. OD18.0000.0180.FA88,0191.0C3C 
U 0C3C. OC19.0O34.61F0,26F8,OO0O.0C3E 
U 0C3E. 0O18.0OO0.0580.FA9O.0185.AC40 

U 0C40, OD00.163C.0180.F800,0181.0AB7 



U 0AB7, 0000, 1B3C, 0980.3488. 0084, 8AC7 
U OABF, 081 9, 0024, 61 80, F 800, 0000. 0AB7 



U 0AC7. 0018,0000,0180.3288, 0010.0C41 
U OACF. 0O00,0O3E,01C0,3220,0O00,0010 

U 0C41, OCOO,0O3C,05F0,248B.0185,AC40 



22248 

22249 

22250 

22251 

22252 

22253 

22254 

22255 

22256 

22257 

22258 

22259 

22260 

22261 

22262 

22263 

22264 

22265 

22266 

22267 

22268 

22269 

22270 

22271 

22272 

22271 

2227k 

22275 

22276 

22277 

22278 

22279 

22280 

22281 

22282 

22283 

22284 

22285 

22286 

22287 

22288 

22289 

22290 

22291 

22292 

22293 

22294 

22295 

22296 



DIVST: 



ROUTINE WHICH READS DIVIDEND -STRING OFF 

ID-BUS, SHIFTS IT LEFT, AND WRITES THE RESULT ON THE 

STACK AS WELL AS BACK ON ID-BUS. 

DECREMENTS DIVIDEND-LENGTH BY 1. 

R14 (STACK-POINTER) POINTS TO LOW ADDRESS 

RA2 HAS DIVIDEND LENGTH 

RA1 IS USED FOR SCRATCH TO KEEP DIV. LENGTH WHILE USED FOR COUNTER 

RA15 GETS LEFT-OVER DIGIT 



ALU LA-KC.83,RCR13 ALU. 
CLK.UBCC. 
D DAL.SC, 
St FE.FE^SC 

ALUJ>.AND.KL".F3,R[R153 ALU, 
DJJ.Q_ID(SC) 



DIVST2: 

=0111 
DIVST3: 



=;END 

=0111 



ALU LA-KC.13. 
RCR23,ALU.FE.SC-KC.13.SC_FE 

D DAL.SC, 
St FE.FE.SC, 
ALO? 



BRANCH ON ALU-N-6IT 

0111 

ID(SC) D.LA RACR13, 

SC SC+RC.23, 

AL0?.J/DIVST4 

;1111- 

D D.ANDNOT.KC.F3.J/DIVST3 



;BRANCH ON ALU N-BIT 

DIVST4: CACHE DL10NG3, 

RCR1 3 LA-KC. 83, CLK.UBCC, 
J/DIV5T5 

CACHE DCL0NG3, 
Q.RCRS3.RETURN10 
=;END ; — 

DIVST5: Q ID(SC),D Q,FE SC-KC.13, 
LA RACR13, 
VA"VA+4, 
SC"FE,J/DIVST2 



UPDATE DIVIDEND LENGTH 
SHIFT IN NIBBLE 

STORE HIGH NIBBLE IN R15 
GET NEXT LONGWORD 

UPDATE REAL DIVIDEND LENGTH BY 1 
FE GETS .30. SC GETS 4 

SHIFT DATA INTO D 

TEST LENGTH 



STORE SHIFTED RESULT 

SC NOW POINTS TO 

ID-REGISTER WITH NEXT HIGH NIBBLE 

LOW NIBBLE WAS NO GOOD 



STORE IT ON THE STACK 
UPDATE LENGTH 



WRITE LAST LONGWORD 
GET DST-LENGTH 

GET NEXT REGISTER 

UPDATE STACK ADDRESS 



ZZ-ESOAA-124.0 ; DECMAL.MIC C60O,12043 
P1W124.MCR 600-1 2043 MICR02 1L(03> 
DECMAL.MIC C600, 12043 Decimal string 



Decimal string 
K-Jan-82 15:30:16 



U 0C42, 0030,9B38,D9CO,F928.1434,4AD3 

U 0AD3, OCO0,OC3C,0180,FA28,020O,0DD6 

U 0AD7, 083F, 0014, 7580, F800, 1474, 2C46 

U OADB, 0F03,003C,7580,F9A8.1454,2C46 

U 0DD6, 0618, 0014, 0580, FAA8, 0000, 0C43 
U 0DD7, COA1,203C,0180,F9A8,0000,01B9 
U 0C43, 0000,803C, 01 C0,321 0.0000, 0C44 

U 0C44, 0CO3,OO3C,D5F0,2DA8,OO0O,0C0D 



22297 
22298 
22299 
22300 
22301 
22302 
22303 
22304 
22305 
22306 
22307 
22308 
22309 
22310 
22311 
22312 
22313 
22314 
22315 
22316 
22317 
22318 
22319 
22320 
22321 
22322 
22323 
22324 
22325 
22326 
22327 
2232S 
22329 
22330 
22331 
22332 
22333 
22334 
22335 
22336 
22337 
22338 
22339 
22340 
22341 



DIVP 
DIVSAV: 



E 14 
14-Jan-32 Fiche 3 Frame E14 Sequence 585 

VAX1 1/780 Microcode : PCS 01, FPLA OE, WCS124 Page 



584 



=0011 



=;END 
=110 

DIVSO: 



=;END 
DIVS01 



THIS ROUTINE TAKES THE DIGIT JUST GENERATED IN RC5 

AND EITHER SHIFTS IT INTO THE HIGH NIBBLE, 

OR WRITES THE BYTE CONTAINING IT IN THE QUOTIENT-BYTE 

POINTED TO BY R5. 

THIS CHOICE DEPENDS ON WHETHER R4 (THE QUOTIENT-LENGTH) 

IS ODD OR EVEN. 

IF R4=0, THE SIGN-NIBBLE IS ADDED TO RC5, 

THE SIGN-BUE IS WRITTEN, AND THE ROUTINE EXITS VIA 

DIVFIN, TO SET PSL CONDITION CODES. 

D AND Q ARE CLOBBERED, BUT SC AND FE ARE NOT USED. 



STATE STATE .ANDN0T.KC.93, 
ALU RtCT53,Q ALU.LEFT, 
N.AflX . 2.TST ,§YTE , ALU? 



BRANCH ON ALU Z AND N-BITS 

(KHI- 
VA RCR53,DJJ,MUL?, 
J/&IVSO 
;0111- 

STATE STATE. OR.KC. 203, 
ALU JHQ,SHF /LEFT, 
SET. CC (LONG), 
DK/SHF,J/DIVS2 
.-1011- 

STATE STATE. OR.KC. 203, 
NfcZ.ACU.V8C0, 
ALU 0(A),RCrT53 ALU, 
D.0TJ/PIVS2 

BRANCH ON LOW BIT OF D 

ALU LA+KC.13,RCR53 ALU, 

DK/HIGHT,J/DIVS01 

; ! ! ! 

ALU Q, 

RCCT53 ALU.LfFT3,J/DIVC1 



CACHE DCBYTE3, 
ALU_RrR23,Q_ALU 



D Q,Q IDCT53, 

ACU 0?A),RCCT53 ALU, 

J/DTVC10 



CLEAR BITS JUST IN CASE 
ENTER HERE AFTER A FAULT 



LOAD QUOTIENT-ADDRESS 
TEST ODD/EVEN LENGTH 

SET END-OF-INSTRUCTION BIT IN STATE 

CLEAR C-BIT 



SET END-OF-INSTRUCTION BIT IN STATE 
SET Z-B17 

NULL-S*,RING 



INCREMENT QUOTIENT ADDRESS 



NOT A WHOLE BYTE YET 
STORE DIGIT, SHIFTED LEFT 

STORE BYTE IN QUOTIENT STRING 
GET DIVIDEND-LENGTH 

GET DIVISOR-LENGTH 
CLEAR QUOTIENT-BYTE 



ZZ-ESOAA-124.0 ; DECHAL.MIC C60O.12043 
; P1W124.MCR 600.12043 MICR02 1L(03) 
; DECMAL.MIC [600.12043 Decimal string 



Decimal string 

K-Jan-82 T5:30:16 
: DIVP 



F 14 
14-Jan-82 



Fiche 3 Frame F14 



VAX1 1/780 Microcode : PCS 01. FPLA OE, WCS124 



Sequence 586 



Page 585 



U 0C46. 0100.173C.E5F0.2E28,0200.03AA 

U 03AA, 0819,0030.8580,F800.0000.0DE7 
U 03AE. 0819,1A30,8980,F800.0000.0AEB 

U OAEB. 0018.8038.4180. 3000.0050. 0C48 
U OAEF, OOOOJ63C.0180.F800.0000.0DE3 

U 0DE3. 0818.0038.8580.F800.0000.0DE7 
U 0DE7, 0000.803C.01B0.3000.0000.0C48 



U 0C48. 001C,0000,D9F0.2EA8.0000.0C49 
U 0C49, 0003.003C.0180.F/ W.0O0O.0C4A 
U 0C4A, 0OOi.203C.0180.FA88.0O0O.0C4C 

U 0C4C, 0000,003C,6580,FA70.0000.0C4D 
U 0C4D, 0018.1614.6580.FAFO.0000.ODF3 

U 0DF3. 0003. 003C, 01 80, FAAO, 0000. 0829 
U 0DF7, 0003, 003C, 31 F0.2EA0, 0000. 0826 



22342 

22343 DIVS2: VA RCR53.Q IDCT93, 



22344 

22345 

22346 =01* 

22347 

22348 

22349 

22350 

22351 

22352 =;END 

22353 =1011 
22354 

22355 DIVS3 
22356 
22357 
22358 
22359 

22360 =;END 

22361 =011 
22362 



DK7LEFT2.STATE3-0? 



GET QUOTIENT ADDRESS 
TEST SIGN-8IT 



.-BRANCH ON SIGN-BIT OF STA TE-RE6ISTER 

D D.OR.KC.C3.J/DIVS4 ; POSITIVE 

D D.0R.KC.D3. 

P5L.CC7.J/DIVS3 ; NEGATIVE 



BRANCH ON PSL Z-BIT 

1011- 

CACHE DCBYTE3 .QK/RIGHT. 
ALU .Kr.803.N8Z_ALU.V6C 0, 
J/DlVFIN 
;1111- 
STATE7-4? 



WRITE NEGATIVE SIGN-BYTE 
SET PSL N-BIT 



TEST FOR OVERFLOW 



.-BRANCH ON OVERFLOW-BIT OF STATE REGISTER 

;011 ; 

22363 DIVS30: DJCC.CJ ; WRITE PLUS ZERO 

22365 DIVS4: CACHE DCBYTE3 . ; WRITE LAST BYTE 

22366 QK/RJ5HT.J/DIVFIN ; DIVIDE LENGTH BY 2 

22367 =;END 



22368 DIVFIN 

22369 

22370 

22371 

22372 

22373 

22374 

22375 

22376 

22377 

22378 DIVP.JUNK.EXIT 

22379 

22380 

22381 

22382 

22383 

22384 =011 

22385 

22386 

22387 

22388 

22389 

2239J =;END 



ROUTINE WHICH FINISHES UP THE DIVIDE-INSTRUCTION 
RESETS THE STACK-POINTER, SETS THE CONDITION-CODES 



ALU LA-Q.RCR53_ALU.LONG, 
Q .IPCT6 3 

ALUJXA) .RCR03.ALU 

RCR13 Q 



L AB_RCS P3.K C.103 

R CSP3_LA+KC.103.ST ATE7-4? 

•BRANCH ON OVERFLOW-BIT OF STATE 

ALU 0(A) .RCR43.ALU.J/FINI8 

ALU 0(A) <RCR43 ALU. 
Q.IPCCES3.J/FIRI5 



RESET R5 WITH QUOTIENT ADDRESS 
GET DIVISOR ADDRESS 

CLEAR RO 

R1 GETS DIVISOR ADDRESS 

GET READY TO POP STACK 
RESTORE STACK POINTER 

CLEAR R4 

CLEAR M 

LOAD TRAP-VALUE 



ZZ-ESOAA-124.0 ; DECMAL.MIC C600,12043 
P1W124.MCR 600-12043 MICR02 1L(03) 
DECMAL.MIC C600,12043 Decimal string 



Decimal string 

14-Jan-82 15:30:16 



: ASHP 



G 14 
14-Jan-82 Fiche 3 Frame 614 Sequence 587 

VAX1 1/780 Microcode : PCS 01, FPLA 0E, WCS124 Page 586 



22391 
22392 
22393 
22394 
22395 
22396 
22397 
22398 
22399 
22400 
22401 
22402 
22403 
22404 
22405 
22406 
22407 
22408 
22409 
22410 
22411 
22412 
22413 
22414 
22415 
22416 
22417 
22418 
22419 
22420 
22421 
22422 
22423 
22424 
22425 
22426 
22^27 
2242S 
22429 
2243C 
22431 



.TOC 



Decimal string 



ASHP* 



;ARITMETIC SHIFT OF PACKED BCD 
; ALGORITHM: 

1. THE MICRO-CODE STARTS BY EVALUATING THE SPECIFIERS 
AND INITIALIZING REGISTERS ("ASHP. INI T"). 

FIRST PART DONE FLAG IS SET ("ASH. 13"). 

2. THE MAIN LOOP STARTS AT "ASHP.E" AND BEGINS BY READING 
A LONGWORD FROM THE SOURCE-STRING r'ASHP.El"). 

3. THE PROGRAM USES TWO DIFFERENT PATHS THROUGH THE LOOP, 
DEPENDING ON WHETHER IT IS DOING A RIGHT SHIFT ('MEG-CNr'), 
OR A LEFT SHIFT CW)S.CNT"). 

4. ON RIGHT SHIFTS, THE ROUNDING OPERAND IS ADDED TO THE MOST 
SIGNIFICANT DISCARDED DIGIT CNEG.4"), AND RESULTING CARRIES 
MAY PROPAGATE THROUGH THE STRING CNEG.3"). 

5. ON LEFT SHIFTS, O'S A3E SHIFTED INTO THE LEAST SIGNIFICANT 
END OF THE STRING CP0S.2"). 

6. IN ANY CASE, THE NEWLY READ DATA IS SHIFTED TOGETHER WITH 
PREVIOUS DATA (STORED IN RC2>, AND THE RESULT IS 

WRITTEN INTO THE DEST-STRING ("ASHP.WRITE"). 

7. STEPS 2,3,4,5,6 ARE REPEATED UNTIL WE REACH THE 

END OF BOTH STRINGS, AT WHICH TIME WE LOAD THE GENERAL REGISTERS 
AND SET THE CONDI I TON-CODES ("ASHP. FIN"). 

8. IN CASE OF INTERRUPTS OR MEMORY-FAULTS, THE INITIAL STATE 
OF THE INSTRUCTION IS SAVED ("BCD. SAVE"), AND THE INSTRUCTION 
IS RESTARTED ('RESTART. ASHP"). 

OP-CODE IS 'T8" 

CCK/INST.DEP IS DEFINED AS: Z Z,N N,V 0,C ALU CARRYCUDT3 

INST.DEP ALU-FUNCTION IS A-B-PSL. SORROW " 

THIS ROUTINE CALLS THE SUBROUTINES: 
READ-BCD ,WRI TE-BCD , SPEC ,ASPC 



ZZ-ESOAA-124.0 ; DECMAL.MIC C600.1204D 
P1U124.MCR 600.12043 M1CR02 1L(03) 
DECMAL.MIC C600. 12043 Decima.1 string 



Decimal 
14-Jan-82 
: ASHP 



string 



H 14 
14-Jan-82 Fiche 3 Frame H14 Sequence 588 
5:30:16 VAX11/780 Microcode : PCS 01. FPLA 0E, WCS124 Page 



587 



22432 
22433 
22434 
22435 
22436 
22437 
22438 
22439 
22440 
22441 
22442 
22443 
22444 
22445 
22446 
22447 
22448 
22449 
22450 
22451 
22452 



STORAGE-ALLOCATION: 

RO HAS SRC-LENGTH , INITIALLY -LENGTH-1 

R1 HAS SRC-ADDRESS, INITIALLY HIGH ADDRESS+1 

R2 HAS DST-LENGTH, INITIALLY -LENGTH-1 

R3 HAS DST-ADDRESS, INITIALLY HIGH ADDRESS+1 

RCO HAS SRC-LENGTH 

RC1 HAS DST-LENGTH 

RC2 HAS LEFT-OVER DATA DURING RIGHT SHIFTS 

RC4 HAS ORIGINAL SHIFT-COUNT*4 

RC5 HAS SHIFT-COUNT*4 IN LOU BYTE, ROUNDING-OPERAND IN HIGH BYTE 

IDCT03 HAS SRC-ADDRESS 

IDCT13 HAS LOU DST-ADDRESS 

IDCT23 HAS ROUNDING OPERAND 

STATE-REGISTER: 



INTRP7 



OVFLOW ;1.TIME 
.-READ 



COUNT 
DIRECT 



CARRY 



1.TIME 
WRITE 



SIGN 



U 03CC. 0803,403C , 01 8F,F 980, 0000, 0602 
U 0602, OC19,0035,A180,F990,0050,047E 

U 0662, 0803,603D.C180,3DAO,0082,037E 
U 0672, 0819, 0034, 6180, F800, 0000, 0C4E 



I 14 

ZZ-ES0AA-124.0 ; DECMAL.MIC C600.12043 Decimal string 14-Jan-82 Fiche 3 Frame 114 Sequence 589 
; P1W124.MCR 600.12043 MICR02 1L(03) 14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA 0E, WCS124 Page 588 
; DECMAL.MIC C600. 12043 Decimal string : ASHP 



U 0C4E, 0900,003C»C980,3COO,0010,01C6 



U 00F6, 0003,603D,C980,3DAO,0010,OC99 



U 01C6, 0010,0031. 0180,F9A8,0000,037E 



U 01D6, 0803,403D,0180,F988,0000,047E 



U 01F6, 001F,1208,C580,3E90,0000,05F6 



22453 3CC: ; ENTER HERE FROM C-FORK WITH Q=COUNT,D=SOURCE-LENGTH 

22454 ASHP.JNIT: 

22456 ALU D.OXTCWORD3,RCCT03 ALU, 

22457 D A&J.QK/LEFT2, 

22458 SGN/CLR.SD+SS 

22459 =000**1* 

22460 ; 000**1 * 

22461 ALU D.AND.KC.FFE03, 

22462 RCCT23 ALU, 

22463 NRZ.ALO.VftC 0,DJJ,CALL.J/ASPC 

22464 =110**1* 

22465 ASH. 11: ; 110**1* 

22466 IDCT03 D. 

22467 ALU Q.0XTCWORD3.RCCT43 ALU, 

22468 D aCU.SC ALU. 

22469 CALL,J/SPEC 

22470 =111**1* 

22471 ; 1 1 1 ** 1 * 

22472 ALUJ>.AND.KC.F3.D_ALU 

22473 =;END 
22474 

-' • *********************************************** 

* Patch no. 059, PCS 0672 trapped to WCS 1185 * 

*********************************************** 



SAVE SRC-LENGTH IN RCO 

MULTIPLY COUNT BY 4 

CLEAR SS FOR LATER BRANCHING 



ISLOATE SRC-LENGTH 

CLEAR FOR STORAGE-REGISTER 

CLOCK LENGTH, EVALUATE SRC-ADDRESS 



SAVE SRC-ADDRESS IN TO 
INITIALIZE RC4 WITH 4*SHIFT-C0UNT 
LOAD IT IN SC AS WELL 
EVALUATE ROUNDING OPERAND 



ISOLATE LOW NIBBLE 



2247i> 



D D.SWAP.IDCT23 D, 
EAlU.SC , CLK .UBCt, J/ASHP. 1 2 



22476 
22477 
22478 
22479 
22480 
22481 
22482 

22483 =0*100**1* 

22484 =0*111**1* 

22485 ASHP.REEN.O: 

22486 ; 0*1 1 1 **1 * 

22487 ALU Q.OXTCWORD3.RCCT43 ALU, 

22488 EALO SCCLK.UBCC. 

22489 IDCT23 D, CALL, J/RESTORE .BCD 

22490 =1*100**1* 

22491 ASHP. 12: 

22492 ; 1 *1 00**1 * 

22493 ALU D.0R.Q.RCCT53 ALU, 

22494 CALCJ/SPEC 

22495 =1*101**1* 

22496 DC.PA.59: 

22497 ; 1 *1 01 **1 * 

22498 ALU D.OXTCWORD3,RCCT13 ALU, 

22499 D ALU CALL, J/ASPC 

22500 =1*111**1* 

22501 ASHP.REEN: 

22502 ; 1 * 1 1 1 * *1 * 

22503 ALU 0-Q-1,RCR23 ALU, 

22504 QK/RlGHT,IDCT13~D, 

22505 EALU?,J/ASH.I10" 

22506 = 



SAVE ROUNDING OPERAND IN T2 
CLOCK DIRECTION OF SHIFT 



INITIALIZE RC4 WITH SHIFT-COUNT 
CLOCK DIRECTION OF SHIFT 
SAVE ROUNDING OPERAND 



SAVE BOTH COUNT AND ROUNDING IN RC5 
EVALUATE DST-LENGTH 



STORE DST-LENGTH IN RC1 
EVALUATE DST-ADDR2SS 



STORE NEGATIVE DST-LENGTH IN R2 
SAVE DST-ADDRESS IN T1 
TEST DIRECTION OF SHIFT 



ZZ-ES0AA-124.O ; DECMAL.MIC C600.12043 
; P1U124.MCR 600.12043 MICR02 1L(03) 
; DECMAL.MIC C600, 12043 Decimal string 



U 05F6, 0010,0010, 1980,FA98.1404.66A2 

U 05FE, 001D,0010,6580,FA98,1404,66A2 

U 06A2, 0850.0039, C1F0,2D0O,0OO0,OB24 

U 06AA, 0013,0008,B580,3E80,0000.0036 



Decimal string 

14-Jan-82 15:30:16 
: ASHP 



J 14 
*4-Jan-82 



Fiche 3 Frame J14 



VAX1 1/780 Microcode : PCS 01, FPU OE, WCS1 



Sequence 590 



IT 



Page 589 



U 09EA, 0819,9B15,OD80,F888,4010,OAF7 
U 09EB, 0O18,OEOO,1180,F8AO,0OO0,0DFE 

U ODFE, 001 0,0038. 7580, FAOO, 01 86,6C50 
U ODFF, 0000. 003C, 41 80, F 800, 1404. 6033 



22507 =011* .-BRANCH ON EALU N-BIT CSS=0) 

22508 ;011*- 

22509 ASH. I 10: 

22510 STATE JCCZER03, 

2251 1 ALU .D+Q+1 ,RCR33_ALU, 

22512 J/A5H.I3 

22513 ;111* 

22514 STATE JCC. 103, 

22515 ALU.D+Q+1 ,RCR33 ALU, 

22516 J/ASH.I3 

22517 = -END 

22518 =0*** ;0**»- 

22519 ASH. 13: ALU _RCCT03,D ALU.RIGHT, 

22520 Q I0l"TO3,CALL\J/BCD.FPD.OO 

22521 ;T*** 

22522 ALU. O-LC-1 ,RCR03 ALU, 

22523 IDLTPDA3_D,J/ASHP.E 

22524 =;END 



22525 
22526 

22527 =10 

22528 ASHP.E1 
22529 

22530 

22531 

22532 

22533 

22534 =11 

22535 

22536 

22537 

22538 =;END 

22539 =110 
22540 
22541 
22542 
22543 
22544 
22545 
22546 
22547 =;END 



CLEAR STATE-REGISTER 
GENERATE HIGH DST-ADDRESS 



SET LEFT-SHIFT-BIT IN STATE 
INITIALIZE R3 WITH HIGH DST-ADDRESS 



GET SRC-LENGTH, DIVIDE BY 2 
GET SRC-ADDRESS, SET FPD 

INITIALIZE RO WITH NEG. SRC-LENGTH 
LOAD 1 .PART DONE RETURN ADDRESS (33) 



ENTER HERE IN ORDER TO READ NEXT LONGWORD FROM SRC-STRING 
EXPECTS D TO HAVE NEGATIVE SRC-LENGTH, REFLECTED IN ALU CC 
1C 



LA RACR13, 

ALO D+KC.33, 

DACU.CLK.UBCCBYTE, 

IRTRPT. STROBE, 

ALU.N?,CALL,J/READO 

;11- 

ALU LA-KC.43, 

LC J*CCT438R1 ALU, 

BENVINTERRUPT 

BRANCH ON INTERRUPT-REQUEST 

FE KC.203, 

LAB RCR03,ALU LC, SC ALU, 

J/A5HP.E2 

; 1 1 1 

STATE KC. 803, 
J/SAVF.BCD 



GET SRC-ADDRESS 
INCREMENT LENGTH 

STROBE INTERRUPTS 

TEST LEKoTH,READ SRC-STRING 

UPDATE SRC-ADDRESS 

GET SHIFT-COUNT 

TEST FOR PENDING INTERRUPTS 



LOAD 1. READ BIT TEMPORARILY IN FE 
STORE COUNT IN SC 



SET INTERRUPT-BIT OF STATE 
ROUTINE TO SAVE CONTEXT 



U 0C50, 0018,1614.0180.FA80.0010.8E04 



U 0E04, 0819,OF24,61F8,F990,1400,2A22 

U OE05, 0019,OF24,6180,F990,1400,2A02 
U 0E06, 0010,1438,01C0,F910,1400,2026 

U 0E07, 0810,1238,01E0.F910.1400,22A6 



ZZ-ESOAA-124.0 ; DECMAL.MIC C60O,12043 
P1W124.MCR 600.12043 MICR02 1L(03) 

DECMAL.MIC C600. 12043 Decimal string 



Decimal string 

14-Jan-82 15:30:16 



K 14 
14-Jan-82 



Fiche 3 Frame K14 



U 0026, OD01,003D,0180,F990,0000,OC52 

U 0027, 0F01,0O3D,7580,F990,0084,AC52 

U 0036, 0840,803C,0180,FAOO,0010,09EA 
U 0037, 0010,0038,0180,F920,0082,OC51 

U 0C51, 0810,1438,01F8,F910,0000,0026 



22548 
22549 
22550 
22551 
22552 
22553 
22554 
22555 
22556 
22557 
22558 
22559 
22560 
22561 
22562 
22563 
22564 
22565 
22566 
22567 
22568 
22569 
22570 
22571 
22572 
22573 
22574 
22575 
22576 
22577 
22578 
22579 
22580 
22581 
22582 
22583 
22584 
22585 
22586 
22587 
22588 



: ASHP 
ASHP.E2 



VAX11/780 Microcode : PCS 01. FPLA OE, WCS124 



Seguence 591 



Page 590 



RCR03 LA+KC.83, 
EALU SC+FE.CLR.UBCC, 
STATE7-4? 



^100 



UPDATE SRC-LENGTH 
CLOCK SHIFT-COUNT 
TEST 1.TIME AND COUNT-SIGN 



jBRANCH ON 1. READ AND P0S/NEG-6ITS OF STATE 

100 

STATE STATE.OR.FE, 
D D.ARDN0T.KC.F3. 
RtCT23 ALU.Q 0, 
BCDSGN?,J/FlRST.POS 

STATE STATE.OR.FE, 
ALU D.AND.rtT.KC.FJ, 
RCCT23 ALU. 
BCDS6N?.J/FIRST.NEG 
;11" 

POS.CNT: STATE STATE.OR.FE, 

Q RCCT23.SC7.37POS.1 
;T11 

STATE_STATE.OR.FE, 
Q D,D.RCCT23, 
EAtU?,J/NEG.CNT 



=;END 



ENTER HERE IF COUNT IS NON-NEGATIVE, NOT SIGN-BYTE 



=0*110 .-BRANCH ON SC<9-5> NE 

0*110 

POS.1: RCCT23 D, 

D DAL.5C, 

C*LL,J/ASHP. WRITE 

;0*111- 

SC SC-KC.203.D 0. 

RCrT23_D,CALL,3/ASHP.WRITE 

ASHP.E: ALU RCR03.D ALU.RIGHT. 

CLK.UBCC.BYTE.J/ASHP.E1 

;1*111- 

SC RCCT4] 

=;END ; 

POS.2: Q O.D RCCT23, 

St?,j7P0S.1 



SET 1. READ BIT 
STRIP OFF SIGN-NIBBLE 
SAVE DATA IN RCCT23 
TEST DECIMAL SIGN 

SET 1. READ BIT 
STRIP OFF SIGN-NIBBLE 
SAVE DATA 
TEST DECIMAL SIGN 

SET 1. READ BIT (RECALL THAT FE=20) 
GET LEFT-OVER DATA, TEST COUNT 



SET 1. READ BIT 

GET LEFT-OVER DATA( INITIALLY 0) 

SHIFT-COUNT IS NEGATIVE, TEST IT 



STORE NEWLY READ DATA IN RC2 
SHIFT CURRENT DATA INTO PLACE 
WRITE RESULT IN DST-STRING 

STILL WRITING TRAILING O'S 



GET SRC-LENGTH 
READ NEXT LONGWORD 

RETRIEVE SHIFT-COUNT 

INSERT TRAILING O'S 
TEST COUNT 



L 14 

ZZ-ESOAA-124.0 ; DECMAL.MIC C60O,12043 Decimal string 14-Jan-82 Fiche 

; P1W124.MCR 600-12043 MICR02 1L(03) 14-Jan-82 15:30:16 VAX11/780 Microcode 

; DECMAL.MIC C600, 12043 Decimal string : ASHP 



U 0C52, 0018,1738, 1D80,F9AO,0000,015A 

U 015A, 0819,0024.6180,F800,0000.015E 
U 015E, OOOO,803C,01C0,FA10,0O10,0594 



U 0594, 0079,2D15,01CO,F898,0092,OE59 
U 05B4, 0840,823C, C1FO,2EOO,0010,OE15 
U 05F4, 0018,0200,1180,FA98,1404,2EOD 

U OEOD, 0019,2016,0180,FA90,1404,4010 
U OEOF. 0019,2016,0180,FA90,1404,2010 



22589 ASHP. WRITE: 

22591 RCCT43j(CSC3,STATE3-0? 

22593 =101* -BRANCH ON 1. TIME-BIT OF STATE 

22594 ; 1 01 * 

22595 ASH.UO: D _D.ANDNOT.KC.F3 

22596 ;T11* 

22597 Q RCR23, CLK.UBCC, BYTE 

22598 =:END ; 

22599 =00***** 

22600 ASH.W1: LA RACR33, 



22601 

22602 

22603 

22604 

22605 

22606 

22607 

22608 

22609 

22610 

22611 

22612 

22613 

22614 =11****» 

22615 

22616 

22617 

22618 =;END 

22619 =101 
22620 
22621 
22622 
22623 
22624 
22625 
22626 
22627 =;END 



AL0Q+KC.§3, 

SC ALU. 

SHf/ALL.DT,LONG, 

QK/SHF, 

CLK.UBCC, 

SIGNS?, 

CALL,J/WRITE1 

;01 *****— — — - 

ALU_RCR03,D ALU.RIGHT, 
CLK.UBCC, BYTE, 
Q IDCT03, 
ROR?,J/ASHP.FIN 



STATE_STATE.OR.KC. 43, 
RCR33 LA-KC.43, 
ROR? 



BRANCH ON PSL C-6IT 

101- 
STATE STATE .ANDNOT.KC. 83, 
RCR23 Q+KC.83, 
RETURR10 

STATE STATE. OR, KC. 83, 
RCR23IQ*KC.83,RETURN10 



3 Frame L14 Sequence 592 

: PCS 01, FPLA OE, WCS124 Page 591 



SAVE SHIFT-COUNT, TEST 1. TIME-BIT 

CLEAR SIGN-NIBBLE 
GET DST-LENGTH 



GET DST-ADDRESS 
INCREMENT NIBBLE-COUNT 
STORE IN SC 
MULTIPLY BY 4 
LOAD IN SC 

TEST OVERFLOW AND END OF STRING 
CALL 'WRITE-BCD' -SUBROUTINE 



CLOCK SRC-LENGTH 
GET SRC-ADDRESS 
TEST FOR CARRY 



SET 1. WRITE BIT OF STATE 
UPDATE DST-ADDRESS 
TEST PSL CARRY BIT 



CLEAR CARRY-BIT OF STATE 
UPDATE DST-LENGTH 



SET CARRY-BIT OF STATE 
UPDATE DST-LENGTH 



ZZ-ESOAA-124.0 ; DECMAL.MIC C600.12043 
P1W124.MCR 600-12043 MICR02 1L<03> 

DECMAL.MIC C600. 12043 Decimal string 



Decimal string 
K-Jan-82 15:30:16 



: ASHP 



M 14 
14-Jan-82 Fiche 3 Frame Ml 4 Seguence 593 

VAX11/780 Microcode : PCS 01, FPLA 0E, WCS124 Page 



592 



U 02A6, OD1F,1715.01DO.F990,0000,0642 

U 02AE. 0001.203C.7580,F990,0084,8C53 

U 02B6, 0840,803C,0180,FA00.0010,09EA 
U 0C53. 001 8,0038.1 D80.F9A0, 0000, 0036 

U 0642, 081D,0014.C9FO,2COO,0000,OC54 
U 0646, 0OOO,8O3C,01C0,FA10,0O10,0594 

U 064A, 081D»1700,0180,F800,0000,015A 
U 064E, 081D,0010,01DO,F800,0070,064A 
U 0C54, 081F,A014,01DO,F800,0070,06*A 



22645 
22646 
22647 
22648 
22649 
22650 
22651 
22652 
22653 
22654 
22655 
22656 
22657 
22658 
22659 
22660 
22661 
22662 
22663 
22664 
22665 
22666 
22667 
22668 



=0011* 
NEG.CNT: 



22628 

22629 

22630 

22631 

22632 

22633 

22634 

22635 

22636 

22637 

22638 

22639 

22640 

22641 

22642 

22643 =1011* 

22644 



ENTER HERE IF COUNT WAS ORIGINALLY NEGATIVE 
Q HAS LONG-WORD JUST READ, D HAS PREVIOUS LONGUORD 
THE NEW DATA GETS SHIFTED TOGETHER WITH THE OLD, 
AND THE COUNT GETS INCREMENTED. 



BRANCH ON EALU N-BIT (SS=0) 
0011*- 



=;END 
NEG.5: 



D.DAL . SC .ALU JHQ .RCCT23.ALU, 

Q DEC. CON, 

CAlL ,STATE3-0? , J/NEG. 2 

; 01 1 1 * 

RCCT23 Q.SC SC+KC.203, 

J/NEG.5 

;1011*- 

ALU RCR03,D ALU.RIGHT, 

CLK.UBC C,BYTE,J/ASHP.E1 

RCl"T43jCCSC3,J/ASHP.E 



=001* .BRANCH ON CARRY AND FIRST WRITE 

.001* 
NEG.2: ALU JHQ.D ALU, 

Q lBCT23,J/NEG.4 

,011* 
NE6.20: Q RCR23,CLK.UBCC,6YTE,J/ASH.W1 

NE6.3: 6 D-Q, 

STATE3-0?,J/ASH.W0 
;111*— 

ALU.D+Q+1 ,D ALU, 
SET.CC(LONGT, 
Q.DEC. CON, J/NEG.3 



=;END 
NEG.4 



ALU Q. 0XTCBYTE3+D , D.ALU, 
Q DEC. CON, 
SPT.CC(BYTE),J/NEG.3 



SAVE NEW DATA IN RC2 

GET READY FOR DECIMAL ADD 



INCREMENT SHIFT-COUNT 

GET SRC-LENGTH 

STORE SHIFT-COUNT 

BITS OF STATE 

ADD 6'S TO STRING 
GET ROUNDING OPERAND 

GET DST-LENGTH, WRITE-ROUTINE 

DECIMAL ADJUST 
TEST FI':ST TIME BIT 

ADD 6'S AND 1 FOR CARRY 

CLOCK PSL C-BIT 

Q GETS DECIMAL ADJUSTMENT 

ADD ROUNDING OPERAND 

Q GETS DECIMAL ADJUSTMENT 



; *********************************************** 

; * Patch no. 039, PCS 0C54 trapped to WCS 1173 * 

• *********************************************** 



ZZ-ESOAA-124.0 ; DECMAL.MIC C600.12043 



U 0AO2. 0840,803C,0180,FAOO,0010,09EA 
U 0AO3. 0840,803C,0980,FA00.1414,29EA 

U 0A22, 0000,143C.0180,F800,0000,0026 
U 0A23, 0000. 143C,0980,F800,1404, 2026 



P1U124.MCR 600.12043 
DECMAL.MIC C600, 12043 



MICR02 1L(03) 
Decimal string 



N 14 
Decimal string 14-Jan-82 Fiche 3 Frame N14 Seguence 594 

14-Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01, FPU OE, WCS124 Page 

: ASHP 



593 



U 0E15. 0818,1B38,8580,F800,0000,01B5 
U 0E17, O01F,0O14, 3180, F800, 1474, 2185 



U 0185, 0003,173C, 7980,FA80,1434,488D 
U 01BD, 0010,003A,0180,F920,0082,0010 



22669 
22670 
22671 
22672 
22673 
22674 
22675 
22676 
22677 
22678 
22679 
22680 
22681 
22682 
22683 
22684 
22685 
22686 
22687 
22688 
22689 
22690 
22691 
22692 
22693 
22694 
22695 
22696 
22697 
22698 
22699 
22700 
22701 
22702 
22703 
22704 
22705 
22706 
22707 



=10 



ENTER AFTER READING FIRST LONGWORD, TO TEST FOR SIGN. 



; BRANCH ON SIGN NIBBL E 

FIRST. NEG: 

ALU RCR03,D ALU.RIGHT, 
CLK.UBCC,BYTE,J/ASHP.E1 

;11 

STATE STATE.QR.KC.23, 
ALU_RtR03 ,D ALU.RJGHT, 
CLK.UBCC,BYTE,J/ASHP.E1 

=;END 

=10 .-BRANCH ON SIGN-NIBBLE 
;10 

FIRST.POS: 

SC?,J/P0S.1 

STATE STATE. OR.KC. 23. 
SC?,J7P0S.1 



=;END 



GET SRC-LENGTH 
READ NEXT LONGWORD 

SET MINUS SI GN-8IT OF STATE 
GET SRC-LENGTH 
READ NEXT LONGWORD 



TEST SHIFT-COUNT 

SET SIGN-BIT TO NEGATIVE 
TEST SHIFT-CTUNT 



=101 
ASHP.F1H: 



.•ENTER HERE AFTER REACHING END OF DST-STRING 
.-BRANCH ON PSL CARRY BIT 
;101 



=;END 
=01*1 



D KC.C3.ALU?,J/ASH.F2 

;T11- 

ALU 0+Q,SET.CC(L0NG), 

STATE.STATE. OR.KC. 403 



BRANCH ON ALU N-BIT 

01*1- 

ASH.F2: ALU 0(A),RtR03 ALU, 
N AMX.Z TST, ~ 
STATE STATE.ANDNOT.KC.303, 
STATE3-0?,J/F!NI1 

SC RCCT43.RETURN10 
=; END ; 



TEST SRC-LENGTH 

C'.EAR C-BIT 

SET OVERFLOW-BIT OF STATE 



CLEAR RO 

CLEAR N-BIT 

USE THESE BITS IN FINISH-ROUTINE 

TEST SIGN-BIT 

GET SHIFT-COUNT 



ZZ-ESOAA-124.0 ; DECMAL.MIC £600,12043 
P1W124.MCR 600.1 2043 MICR02 1L(03) 
DECMAL.MIC [600.12043 Decimal string 



B 15 

Decimal string 14-Jan-82 Fiche 3 Frame B15 Sequence 595 
14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA OE. WCS124 Page 
: BCD-READ SUBROUTINE 



594 



U 0AF5, 0F19.0016.19D0,F800, 0081 .0001 
U 0AF7. OF19.0016.19DO.F800.0081.0001 
U OAFD, 0018. 1B00.1 180, F800.0200, 0827 

U OAFF. 001 8. 1B00. 11 80, F800, 0200.0807 

U 0BO7, 0018.0COO.O58O,F£0O,020O.0E24 
U OBOF, 0000, 823C.0180, 4000, 0000. 0E1A 

U 0E1A, OB1F,0016,01DO,F800, 0081. 0003 

U 0E1B, 0818,0000,0580,F800,0200,OC55 
U 0E1E, 0800,C03C,0180,F800,0200,OC58 

U 0E1F, 0018, 0000, 0DE0,F800, 0200, 0C58 



22708 

22709 

22710 

22711 

22712 

22713 

22714 

22715 

22716 

227\7 

22718 

22719 

22720 

2272*\ 

22722 

22723 

22724 

22725 

22726 

22727 

22728 

22729 

22730 

22731 

22712 

22733 

2273k 

22735 

22736 

22737 

22738 

22739 

22740 

22741 

227^2 

2271*3 

227V* 

22745 

22746 

227U7 

22748 

22749 

22750 

22751 

22752 

22753 

22754 

22755 

22756 

22757 

22758 

22759 



.TOC 



=0101 
REAI/00: 

READO: 



=;END 
=0111 

READ1: 



=;END 
=010 

R4: 



=;END 



Decimal string 



: BCD-READ SUBROUTINE' 



SUBROUTINE WHICH READS FROM TO 4 BYTES OF DATA 

FROM MEMORY, STARTING IN ADDRESS DETERMINED BY LA, 

USING -COUNT/2 IN D. 

CONDITION CODES REFLECT COUNT. 

RETURNS DATA IN ALGEBRAIC ORDER. FILLED OUT WITH O'S, 

IN D-REGISTER. 

RETURN IS MADE WITH SC=FE.Q=DECIMAL C0HSTANT=66666666 

ENTER AT READO IF YOU WANT A STRAIGHT READ 

ENTER AT READOO IF YOU WANT A READ/W WRITE CHECK 

(DEPENDING ON LOW BIT OF OP-CODE). 



BRANCH ON N-6IT OF ALU AND IR<0> 
01 01 ; 

D_0,SC FE.ALU D+KCZER03. 

Q DEC.ftyi.RETORNI 

D_0.SC FE.ALUD+KCZEROJ, 
Q DEC.tON.RETORNl 
;T101- 



ALU LA-KC.43. 

VAK7L0AD .ALU'n? , J/READ1 W 



;1111 

ALU LA-KC.43, 

vak7load,alu.n? 



BRANCH ON M-6IT OF ALU 

0111 — 

VA LA-KC.1J, 

MUC?,J/READ2 
• 111 1. 

DCBYTE J.CACHE, 
ROR? 

BRANCH ON LOW 2 BITS OF LA 

D D.SWAP.SC FE, 

ACU O+Q.Q dEc.con, 
RET0RN3 

D D.SWAP. 
ACU LA-Kt.13, 
VAK7L0AD.J/R401 

; 1 1 

D D.SWAP.VA LA.J/R410 

;T1 1 = 

0J>, 

AEU LA-KC.33. 

VAX7L0AD.J/R411 



***READ SUBROUTINE*** 



END OF INPUT-STRING 



END OF INPUT-STRING 

GET ADDRESS 

TEST FOR WHOLE lONG-WORD 

SWITCH TO READ-W-WRITE-CHK ROUTINE 

GET ADDRESS 

TEST FOR WHOLE LONG-WORD 



LOAD ADDRESS WITH GUESS 
LESS THAN A LONGWORD LEFT 

READ BYTE (MAY BE WHOLE LONGWORD) 
BRANCH ON ADDRESS 



GET DATA IN ARITHMETIC ORDER 
LOAD ALL 6'S 
GOT IT ALREADY 

PUT DATA IN ALGEBRAIC ORDER 
CHANGE ADDRESS 
ADDRESS NOT ALIGNED 

GET READY FOR NEXT READ 

SAVE FIRST BYTE IN Q 
CHANGE ADDRESS 



U 0C55, 0019,8024,49C0.4000,0000,OC56 

U 0C56, 081F,8016,01DO,F800,0081,0003 

U 0C58, 0019.4024, C1CO,4000,0000,OC59 

U 0C59, OB00.003C,0180,F800,0000,OC5A 

U 0C5A, 081F,4016.01DO,F800,0081,0003 

U 0C5B. 0000. 803C. 71 80, 4000. 0084. 6E27 



ZZ-ESOAA-124.0 ; DECMAL.MIC C600.1204D 
; P1W124.MCR 600,12043 MICR02 1L<03) 

; DECMAL.MIC C600.12043 Decimal string 



C 15 
Decimal string 14-Jan-82 

K-Jan-82 15:30:16 VAX11/780 Microcode 



BCD-READ SUBROUTINE 



ALU D.ANDNOT.KC.FF3,Q ALU, 
DCB7TE3.CACHE 



22760 R401: 

22761 

22762 

22763 R4010: D_D.0XTCBYTE3+Q,SC FE f 

~~"*" Q.DEC. C0N,RETURN3 " 



Fiche 3 Frame C15 Sequence 596 

: PCS 01, FPLA OE, WCS124 Page 595 

SAVE 3 HIGH BYTES IN Q 
READ ANOTHER IN D 



22764 

22765 

22766 R410 

22767 

22768 

22769 R4100: D D.SWAP 

22770 

2277-[ 

22772 

22773 

2277U R411 

22775 

22776 



ALU D.ANDNOT.KC.FFFF3,Q ALU, 
DCWflRD J.CACHE 



DJ>.OXTCWORDJ+Q, 
Q_DEC.C0N,SC_FE,RETURN3 

DCBYTE3 CACHE, 
SC_KC.FrF83,J/R21 



ASSEMBLE BYTE 



SAVE FIRST WORD IN Q 
GET NEXT WORD 

IN ALGEBRAIC ORDER 

•t)R" LOW WORD OF D WITH HIGH OF Q 
ASSEMBLE THE DATA 



GET REST OF DATA 



D 15 



ZZ-ESOAA-124.0 ; DECMAL.MIC C60O, 12043 Decimal string H-Jan-82 Fiche 

; P1U124.MCR 600,12043 MICR02 1L<03) 14-Jan-82 75:30:16 VAX11/780 Microcode 

; DECMAL.MIC C600, 12043 Decimal string : BCD-READ SUBROUTINE 



U 0E24, 0018,0200,OD80,F800,0200,OE2A 

U 0E25. O018,O20O,O98O,F800,0200,0E36 

U 0E26, OO0O.803C,O18O,4O0O,0000,CC5C 

U 0C5C, 081B,8016,19DO,F800,0081,0003 



U 0E2A, 0000,803C, 71 F8,4000,0084,6E27 
\l 0E2B, 0018,0008,1 18O,F80O,0200,05A0 
U 0E2E, OO0O.803C,O18O,4000,0000,0C5D 

U 0E2F, 0000,803C, 71 F 8, 4000, 0084, 6E 27 
U 0C5D, 0018,0000,0980,F800,0200,OC60 

U 0C60, 0003, 803C,6DCO,4000, 0084, 6E27 
U 05A0, 0000,803D,0180,4000,0000,OC61 

U 05B0, 0003,403C,69CO,4000,C084,6C62 
U 0C61, 0800, 003E, 01 80, F 800, 0200, 0010 



22777 

2277B =100 

22779 

22780 READ2: 

22781 

22782 

22783 

22784 

22785 

22786 

22787 =;END 



BRANCH ON 2 LOU BITS OF D 
_1f 

ALULA-KC.33,VAK/L0AD, 
R0R?,J/R3 
;10V 



ALU LA-KC . 23 , VAK/LOAD , 

R0R?,J/R2 

;11f 

DCBYTE3 CACHE 



22788 READ20: DJ>.0XTCBYTE3+KCZER03,SC_FE, 



22789 

22790 

22791 =010 

22792 

22793 R3: 

22794 

22795 

22796 

22797 

22798 

22799 

22800 

22801 

22802 =;END 

22803 R301: 
22804 
22805 
22806 
22807 
22808 

22809 =0**** 

22810 R300: 
22811 
22812 
22813 
22814 
22815 =;END 



Q.DEC. C0N,RETURN3 



BRANCH ON LOW TWO BITS OF LA 
010- 



DCBYTE3 CACHE, Q 0, 
SC KC.FFF83,J/R2i 
0T1 



VA LA-KC.43-1,J/R300 
1T0- 



DCBYTE3.CACHE,J/R301 

DC8YTE3 CACHE,Q 0, 
SC_KC.FFF83,J/R21 



VA.LA-KC.23 

DC8YTE3 CACHE, 

Q D.0XTtBYTE3,SC KC.FFF03, 

J7R21 



DCBYTE3_CACHE , CALL , J/SWAP. D 

6 D.0XTCWORD3, 
DTJW0RD3 CACHE, 
SC KC.FFE83,J/R4111 



22816 SWAP.D: D_D.SWAP,VA LA,RETURN10 

2281 7 ; = = 



3 Frame D15 Sequence 597 

: PCS 01, FPLA OE, WCS124 Page 596 



READ 3 BYTES 

TEST LOW BITS OF LA 



READ 2 BYTES 

BRANCH ON ADDRESS-BITS 

READ 1 BYTE 



CLEAR UPPER 3 BYTES, RETURN 



READ FIRST BYTE 

GET READY TO SHIFT DATA 

READ 3 BYTES 

READ FIRST OF 3 BYTES 

READ FIRST BYTE 
GET READY FOR SHIFT 

NEW ADDRESS 

READ NEXT BYTE 
ISOLATE PREVIOUS BYTE 



1-INSTRUCTION SUBROUTINE 

ISOLATE PREVIOUS DATA 

READ NEXT WORD 

GET READY FOR SHIFT 

SUBROUTINE 



U 0E36. 0000.803C.6DF8.4000.0084.6E27 

U 0E37, 0000.823C.6DF8.4000.0084.6E23 

U 0E23, 0000.003C,6980.F800,0284,6C63 

U 0E27, 0B00.003C,0180,F800,0000,0C62 

U 0C62, 0D1 F, 001 6, 01 DO. F 800, 0081 ,0003 

U 0C63, 0003,803C,01C0.4000.0000.0C62 



ZZ-ES0AA-124.0 ; DECMAL.MIC C600.12043 
P1U124.MCR 600.12043 MICR02 1L(03) 
DECMAL.MIC C600.12043 Decimal string 



E 15 

Decimal string 14-Jan-82 
14-Jan-82 15:30:16 VAX1 1/780 Microcode 
: BCD-READ SUBROUTINE 



22818 
22819 
22820 
22821 
22822 
22823 
22824 
22825 
22826 
22827 
22828 
22829 
22830 
22831 
22832 
22833 
22834 
22835 
22836 
22837 
22838 
22839 
22840 



=110 
R2: 



=;END 
=611 

R20: 



R21: 

=;END 

R4111: 



R211: 



.BRANCH ON LOW BIT OF LA 

DC8YTE3 CACHE. 00, 

SC KC.FFF03,J/R21 

;1T1- 

DCBYTE3 CACHE. Q 0, 

SCJCC . FFF03 .R0R7. J/R20 

•ItRANCH ON BIT 1 OF LA 

VA LA 
SC~KC!fFE83.J/R211 

D.D.SUAP 

6 DAL.SC.SC FE, 
ACU 0+Q. " 
QJ>£C.C0N,RETURN3 

DCBYTE3 CACHE, 
Q_D.0XTrBYTE3.J/R4111 



Fiche 3 Frame E15 Sequence 598 

PCS 01. FPLA OE, WCS124 Page 



READ NEXT BYTE 
SHIFT IT 

READ NEXT BYTE 

GET READY TO SHIFT, TEST ADDRESS 



597 



CHANGE ADDRESS 

ARITHMETIC ORDER 

SHIFT DATA INTO PLACE, RIGHT ADJUSTED 

RETURN WITH DECIMAL CONSTANT 



ZZ-ESOAA-124.0 ; DECMAL,MIC C600, 12043 
P1W124.MCR 600-12043 MICR02 1L(03) 
DECMAL.MIC [600,12043 Decimal string 



F 15 
Decimal string 14-Jan-82 Fiche 3 Frame F15 Seguence 599 
14-Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01. FPLA 0E, WCS124 Page 
: BCD-READ-WITH-WRITE-CHECK SUBROUTINE 



598 



U 0B17. OF19,0016,19DO.F800.0081,0001 
U 0B1F. 0018. 1B00.1 180, F 800. 0200, 0B27 

U 0B27. 0018.0C00.0580,F800.0200,OE44 
U 0B2F. 0000.823C.0180.5000.0000.0E3A 

U 0E3A. OB1F.0016,01DO,F800,0081.0003 

U 0E3B. 0818.0000. 0580.F800.0200.0C64 
U 0E3E. OB00.003C.0180,F800.0200,OC65 

U 0E3F, 0018,0000,ODEO,F800,0200,OC66 



22841 
22842 
22843 
22844 
22845 
22846 
22847 
22848 
22849 
22850 
22851 
22852 
22853 
22854 
22855 
22856 
22857 
22858 
22859 
22860 
22861 
22862 
22863 
22864 
22865 
22866 
22867 
22868 
22869 
22870 
22871 
22872 
22873 
22874 
22875 
22876 
22877 
22878 
22879 
22880 
22881 
22882 



.TOC 



Decimal string 



: BCD-READ-WITH-WRITE-CHECK SUBROUTINE* 



.-ROUTINE WHICH READS FROM TO 4 BYTES OF DATA 

.-FROM MEMORY, STARTING IN ADDRESS DETERMINED BY LA, 

.•USING -COUNT/2 IN D. 

.•CONDITION CODES REFLECT COUNT. 

.•RETURNS DATA IN ALGEBRAIC ORDER. FILLED OUT WITH O'S. 

.IN D-REGISTER. 

.•RETURN IS MADE WITH SC=FE.Q=DECIMAL C0NSTANT=66666666 

. ; ***READ SUBROUTINE*** 

=0111 .-BRANCH ON N-BIT OF ALU 

READOW: D_0.SC FE.ALU D+KL7ER03, 
Q DEC.?ON,RETORN1 

ALU LA-KC.43, 
VAK7L0AD.ALU.N? 

=0111 -BRANCH ON N-BIT OF ALU 

;0111 
READ1W: VA LA-KC.13, 

Ml£?,J/READ2W 

;1111- 

DCBYTE3.CACHE.WCHK, 

ROR? 



=;END 
=010 

R4W: 



=;END 



BRANCH ON LOW 2 BITS OF LA 
D D.SWAP.SC FE. 

AtU o+q.q.dEccon, 

RET0RN3 

D D.SWAP, 

ACU LA-KC.13, 

VAK7LOAD,J/R401W 

6 D.SWAP, VA_LA,J/R410W 

Q„D, 

ACU,LA-KC33, 

VAK7L0AD,J/R411W 



END OF INPUT-STRING 

GET ADDRESS 

TEST FOR WHOLE LONG-WORD 



LESS THAN A LONGWORD LEFT 



READ BYTE (MAY BE WHOLE LONGWORD) 
BRANCH ON ADDRESS 



PUT DATA IN ARITHMETIC ORDER 
LOAD ALL 6'S 
GOT IT ALREADY 

PUT DATA IN ALGEBRAIC ORDER 
CHANGE ADDRESS 
ADDRESS NOT ALIGNED 

PUT DATA IN ARITHMETIC ORDER 

SAVE FIRST BYTE IN Q 
CHANGE ADDRESS 



ZZ-ESOAA-124.0 ; DECMAL.MIC C600.12043 
; P1W124.MCR 600.12043 MICR02 1L(03) 
; DECMAL.MIC C600, 12043 Decimal string 



G 15 
14-Jan-82 



Decimal string 

14-Jan-82 15:30:16 VAX11/780 Microcode 



Fiche 

"ocode 

BCD-READ-UITH-WRITE-CHECK SUBROUTINE 



U 0C64, 0019.8024,49CO,5000,0000,OC56 

U 0C65, 0019.4024, CI C0,5000,0000,0C59 
U CC66, 000O.803C, 71 80.5000,0084, 6E47 

U 0E44. 0018.0200.0D80,F800,0200,OE4A 
U 0E45, 0018,0200.0980.F800,0200,OE56 
U 0E46, 00OO,803C,0180,500O,0O00.0C5C 

U 0E4A, 0000,803C,71F8,5000,0084,6E47 
U 0E4B, 0018,0008,1 1 80, F 800, 0200, 0660 
U 0E4E, 0000.803C,0180,5000,0000,0C68 

U 0E4F, 0000,803C,71F8,5000,0084,6E47 
U 0C68, 0018,0000,0980,F800,0200,OC69 

U 0C69, 0003, 803C,6DC0,500O, 0084, 6E47 

U 0660, 0000,303D,0180,5000,0000,OC61 

U 0670, 0003, 403C69C0, 5000,0084,6062 



22883 R401W: ALU D.ANDNOT.KC.FF3,Q.ALU, 

22884 DCBVTEJ CACHE.UCHK, 

22885 J/R4010 

22887 R410U: ALU D.ANDNOT.KC. FFFF3.Q ALU, 

22888 DCW0RD3 CACHE.UCHK, 

22889 J/R4100 

22890 ; 

22891 R411W: DCBYTE3 CACHE.UCHK, 

22892 SCJCC.FFF83,J/R21U 

22894 =100 -BRANCH ON 2 LOW BITS OF D 

22895 ;10C 

22896 READ2U: ALU_LA-KC.33,VAK/LOAD. 



22897 
22898 
22899 
22900 
22901 
22902 
22903 

22904 =;END 

22905 =010 
22906 

22907 R3W: 
22908 
22909 
22910 
22911 
22912 
22913 
22914 
22915 

22916 =;END 

22917 R301W: 
22918 

22919 
22920 
22921 
22922 

22923 =0**** 

22924 R300W: 
22925 

22926 
22927 
22928 
22929 
22930 =;END 



R0R?,J/R3W 

ALU LA-KC . 23 , VAK/LOAD , 

R0R?,J/R2W 

;11C 

DCBYTE3 CACHE. UCHK, 

J/READ20 



BRANCH ON LOW TWO BITS OF LA 
010- 



DCBVTE3 CACHE . WCHK ,Q„0, 

SC KC.FrF83,J/R2lW 

;0T1- 

VA LA-KC.43-1,J/R3O0W 

;1TC 

D CBY TE3.CACHE . WCHK . J/R301 W 

DCPVTE3 CACHE.WCHK,Q 0, 
sr^FFF83,J/R21W 

VAJA-KC.23 

DCBYTE3 CACHE. WCHK, 

Q D.0XTtBYTE3,SC_KL.FFF03, 

J7R21W 

DCBYTE3 CACHE. UCHK, 
CALL,J/5UAP.D 

6 D.0XTCWORD3, 
DrW0RD3 CACHE. UCHK, 
SCJCC.FFE83,J/R4111 



3 Frame 615 Sequence 600 

: PCS 01, FPLA OE, WCS124 Page 599 



SAVE 3 HI6H BYTES IN Q 
READ ANOTHER IN D 



SAVE FIRST WORD IN Q 
GET NEXT WORD 



GET REST OF DATA 



READ 3 BYTES 

TEST LOU BITS OF LA 

READ 2 BYTES 

BRANCH ON ADDRESS-BITS 

READ 1 BYTE 



READ FIRST OF 3 BYTES 
GET READY TO SHIFT 

READ 3 BYTES 

READ FIRST BYTE 

READ FIRST BYTE 
GET READY TO SHIFT 

ADJUST ADDRESS FOR NEXT BYTE 

READ NEXT BYTE 
ISOLATE THE FIRST BYTE 



READ NEXT BYTE 
SUBROUITINE: D_D.SUAP,VAJ_A 

ISOLATE PREVIOUS DATA 

READ NEU WORD 

GET READY TO SHIFT 



U 0E56. 0000.803C.6DF8.5000,0084,6E47 
U 0E57, 0000,823C.6DF8.5000,0084.6E43 

U 0E43. 0000.003C.6980.F800.0284.6C6A 
U 0E47. 0BO0.O03C.O180,F80O,0O0O,0C62 

U 0C6A, 0003,803C, 01 CO. 5000,C000,0C62 



ZZ-ESOAA-124.0 ; DECMAL.MIC C600, 12043 
P1U124.MCR 600,12043 MICR02 1K03) 

DECMAL.MIC C600. 12043 Decimal string 



H 15 
14-Jarv-82 



Decimal string ._.. __ . . _,._ _ „„__.,__ __. 

14-Jan-82 T5:3v):16 VAX 1 1/780 .Microcode : PCS 01. FPU 0E, WCS124 Page 600 



Fiche 3 Frame H15 
-ocode 
BCD-READ-WITH-WRITE-CHECK SUBROUTINE 



Sequence 601 



22931 
22932 
22933 
22934 
22935 
22936 
22937 
22938 
22939 
22940 
22941 
22942 
22943 
22944 
22945 
22946 
22947 
22948 
22949 



=110 
R2U: 



=;END 
=011 

R20W: 



R21W: 
=;END 
R211W: 



.-BRANCH ON LOW BIT OF LA 
;110 



DC8YTE3 CACHE. WCHK.Q 0. 
SC KC.FFF03.J/R21W 

;1T1 

DCBYTE3 CACHE. WCHK.QO, 
SCJCC . FFF03 .ROR? , J/R20W 



BRANCH ON BIT 1 OF LA 

VA LA 

SC"KC!fS-E83,J/R211W 

;1T1- 

D D.SUAP.J/R4111 



DCByTE3.CACHE.WCHK, 
Q_D.0XTrBYTE3.J/R4111 



READ FIRST OF TWO BYTES 
GET READY TO SHIFT 

READ FIRST BYTE 

TEST ADDRESS ALIGNMENT 



ADJUST ADDRESS 
GET SHIFT CONSTANT 

GET DATA IN ARITHMETIC ORDER 

READ NEXT BYTE 
ISOLATE PREVIOUS DATA 



ZZ-ESOAA-124.0 ; DECMAL.MIC C600, 12043 Decimal strirv 

P1W124.MCR 600.12043 MICR02 1L(03) K-Jan-82 

DECMAL.MIC [600.12043 Decimal string 



I 15 
g H-Jan-82 Fiche 3 Frame 115 Sequence 602 

15:30:16 VAX11/780 Microcode : PCS 01, FPLA OE, WCS124 
BCD-WRITE SUBROUTINE 



Page 601 



U GC6B, 0079, 2D14.01C0.F938, 0092. 0E59 

U 0E59, 0011,0032.0180,F9B8,0000,0020 

U 0E5B, 001 1,0032,3180,F9B8, 1404. 2020 

U 0E5D. 001F,1400,0180,F800,0082,OE65 

U 0E5F, OO1F,14OO,O18O,F80O,0O82.0E65 

U 0E65. 0001,173C,19EO,F800,0184.6839 

U 0E67, 0003,0010,11CO,F80C.0084.8C6C 



22950 
22951 
22952 
22953 
22954 
22955 
22956 
22957 
22958 
21)59 
22960 
22961 
22962 
22963 
22964 
22965 
22966 
22967 
22968 
22969 
22970 
22971 
22972 
22973 
22974 
22975 
22976 
22977 
22978 
22979 
22980 
22981 
22982 
22983 
22984 
22985 
22986 
22987 
22988 
22989 
22990 
22991 
22992 
22993 
22994 
22995 
22996 
22997 
22998 



.TOC 



Decimal string 



BCD-WRITE SUBROUTINE' 



WRITE: 



SUBROUTINE WHICH WRITES FROM TO 4 BYTES OF 

DATA IN D, DEPENDING ON COUNT IN LB AND Q, 

STARTING IN ADDRESS GIVEN BY LA. 

CONDITION CODES REFLECT COUNT. 

THE Z-BIT OF THE PSL IS UPDATED. 

RCCT73 WILL HAVE ANY OVERFLOW-DATA. 

STATE-REGISTER IS USED TO SIGNAL FIRST TIME THROUGH. 

Q,D,SC,LA,LB,RCCT73.LC, ARE USED. 

STATE-REGISTER: 



OVFL: 

0=NO 

1=YES 



ALU Q+KC.83, 

SHF7ALU.DT,L0NG. 

SC ALU, 

QK7SHF, 

CLK.UBCC. 

LC RCCT7J, SIGNS? 



I.TIM: 

0=1. 

1=>1. 



SGN: 

0=POS 

1=NEG 



=001 



;BRANCH ON Q31 AND D NE 

WRITE1: ALU D.OR.LC, 
RCCT7:) ALU, 
RETURN20 

ALU D.OR.LC, 
RCCT73 ALU, 

SfATE5TATE.OR.KC.403, 
RETURN20 

ALU 0-Q,SC.ALU,SC?,J/WRlO 

ALU_0-Q,SC_ALU,SC? 



=;END 
=101 

WRIO: 



=;END 



.-BRANCH ON SC 6T 

Q D,ALU D,N AMX.Z.TST, 

St KCZER03,FEK/L0AD, 

ST»TE3-0?,J/WR101 

. 1 11 

ALU <HMASK+1,Q ALU.SC SC+KC.43, 
J/WR1 



INCREMENT NIBBLE-COUNT 
SHIFT IT LEFT TWICE 
SAVE IT FOR MASK 

CLOCK NEW CC 

RC 7 HAS OVERFLOW DATA 



ADD IN NEW OVERFLOW DATA 

STORE IT IN RC 7 

ALREADY POSITIVE-END OF DST 

SAVE OVERFLOW DATA 

SET OVERFLOW-BIT 

ALREADY POSITIVE-END OF DST 

BRANCH ON NEW Q 

BRANCH ON NEW Q 



CLOCK Z-BIT 
WRITE WHOLE WORD 
LOAD MASK IN Q 



ZZ-ESOAA-124.0 ; DECMAL.MIC C600.12043 
P1W*24.MCR 600.12043 MICR02 1L(03) 
DECMAL.MIC C600, 12043 Decimal string 



J 15 
Decimal string 14-Jan-82 

14-Jan-82 15:30:16 VAX11/780 Microcode 



U 0C6C, 081D.0024,11E0,F800,0134,AC6D 

U 0C6D, 001D.3700,1180.F9B8.0195,4839 

U 0B39. 0819,0030,8580,F800,0000,OB3F 
U 0B3B, 0819.0030,8980.F800,0000,OB3F 

U 0B3D, OB4C,OC38,01F8.F9D8,0181.0E6B 

U 0B3F. 0B4C,OC38,O1F8,F9D8,0181,0E6B 

U 0E6B. 0018.0200,1 180.F800.0200.0E82 
U 0E6F, 0D10,0138,01F8,F958,0000,0848 



U 0848. 001C,1508,3180,F800,1604,2ADC 
U 0849. 001 C.I 508. 01 80. F 800. 0200, OADC 



22999 
23000 
23001 
23002 
23003 
23004 
23005 
23006 
23007 
23008 
23009 
23010 
23011 
23012 
23013 
23014 
23015 
23016 
23017 
23018 
23019 
23020 
23021 
23022 
23023 
23024 
23025 
23026 
23027 
23028 
23029 
23030 
23031 
23032 
23033 
23034 
23035 
23036 
23037 
23038 



BCD-WRITE SUBROUTINE 

WR1: ALU D.ANDNOT.Q.N AMX.Z TST, 
Q J>,D_ALU, 
FE_SC=KC43 



WR10: 

=1001 
UR101: 



UR2: 



=;END 
=011 

WR3: 



=;END 
=0 

UR4: 



WR5: 
=;END 



Fiche 3 Frame J15 Seguence 603 

PCS 01, FPLA OE, WCS124 Page 



GET DATA, CLOCK Z-BIT 
MASK OUT LOU PART 
SAVE MASK IN FE 



602 



ALU O-D .RCCT73 ALU. CLK. U3CC , 

FE_5C.ANDNOT.Kr.43. 

SC FE. 

STATE3-0? 



;BRANCH ON STATE 1.TIME AND SIGN-BITS 

;1001 

D D.0R.KC.C3,J/WR2 

;T011 

D D.OR.KC.D3.J/WR2 

;T101~ 

SC FE.FE SC, 

ALO L8,RCCPTE.PA3 ALU.RIGHT, 

Q 0,DJ>.SWAP,MUL?.J/WR3 

SC FE.FE SC, 

ALU_LB.Rtr.PTE .PA3 ALU.RI6HT, 

Q o,d.d.swap,sc.nE.o? 



.•BRANCH ON SC NE 

.-011- 

ALULA-KC.43, VAK/LOAD, 

ROR?,J/U400 

;111 

ALU RCCPTE.PA3,Q 0, 
D D*L.SC,Z? ,J/URS 

•BRANCH ON ALU Z-BIT 



STATE STATE. OR.KC. 403, 
ALU LA-Q-1, VAK/LOAD, 
BEN7ALU1-0.J/U4 

ALU LA-Q-1 .VAK/LOAD, 
BEN7ALU1-0 



GET OVERFLOW 
MAKE SHIFT-COUNT 



TEST DECIMAL SIGN-BIT OF STATE 



1. TIME , POSITIVE 

1.TIME, NEGATIVE 

GET SHIFT-VALUE 

SHIFT LENGTH 

BRANCH ON DST-LENGTH 

GET SHIFT-VALUE 

SHIFT LENGTH 

BRANCH ON DST-LENGTH 



LOAD ADDRESS 
WRITE ALL THE DATA 

PASS LENGTH THRU ALU 
RIGHT-ADJUST THE DATA 



SET OVERFLOW-BIT 
GENERATE ADDRESS (0=0) 



GENERATE ADDRESS (Q=0) 
LOAD-ADDRESS, TEST LENGTH 



ZZ-ES0AA-124.0 ; DECMAL.MIC C600.12043 



. P1W124.MCR 600.12043 
; DECMAL.MIC C600,12043 



MICR02 1L(03) 
Decimal string 



K 15 
14-Jan-82 



Decimal string 
14-Jan-82 15:30:16 VAX11/780 Microcode 



U OADC. 0018.0200-1 180.F800.0200.0E82 

U OADD, 0018.0200.0D80.F800.0200.0E7E 

U OADE. 0018.0200,0980,F800,0200,OE76 

U OADF, 0OOC.803A.O1CO.3000, 0000. 0060 



U 0E76. OOOC,403A,01CO,3000,0000,0060 

U 0E77, 0000.803C. 7180,3000,0084. 6C70 

U 0C70, 0D18.0000.0580.F800, 0200. OADF 

U 0E7E, 0000.803C. 7180.3000. 0084.6C78 

U 0E7F, 0000.403C.6D80.3000.0084.6C76 



23039 
23040 
23041 
23042 
23043 
23044 
23045 
23046 
23047 
23048 
23049 
23050 
23051 
23052 
23053 
23054 
23055 
23056 
23057 
23058 
23059 
23060 
23061 
23062 
23063 
23064 
23065 
23066 
23067 
23068 
23069 
23070 
23071 



Fiche 
11/780 Micr 
BCD-URJ7E SUBROUTINE 

;THE ACTUAL WRITING IS DONE ON THIS PAGE. 



3 Frame K15 Sequence 604 

: PCS 01, FPLA OE, WCS124 Page 603 



=1100 
W4: 



U100: 

=;END 
=110 

U200: 



=;END 

=110 
W300: 



=;END 



BRANCH ON LOW TWO BITS OF ALU 

ALU LAHCL\43,VAJC/L0AD, 
ROR?,J/W400 

VA LAHCC.33 ,RQR? , J/W300 

VA JLA-KL . 23 ,ROR? , J/W200 

;1T11 

CACHE DCBYTE3. 
ALU.L5,Q_ALU,RETURN60 

BRANCH ON LOW BIT OF ADDRESS 

110— - 
CACHE DCWORDJ, 
ALU LS,Q ALU.RETURN60 
;11T- 



CACHE.DCBYTE3.SC .KC.FFF83 
VA_LA-KC.13,D_DAL.SC,J/W100 



.-BRANCH ON LOW BI T OF LA 

CACHE DCBYTE3,SC KC.FFF83, 
J/W410 

CACHE DCWORD3.SC KC.FFF03, 
J/W40T1 



WRITE 4 BYTES 

WRITE 3 B" T ES 

WRITE 2 BYTES 

WRITE LAST BYTE 
GET LENGTH IN Q 

WRITES LAST WORD 
GET LENGTH IN Q 

LOAD -8 FOR SHIFTING 

WRITE TWO BYTES 

WRITE FIRST OF 3 BYTES 
WRITE FIRST OF 3 BYTES 



L 15 

ZZ-ESOAA-124.0 ; DECMAL.MC C600. 12043 Decimal string H-Jan-82 Fiche 

; P1U124.MCR 600.12043 MICR02 1L<03) 14-Jan-82 15:30:16 VAX11/780 Microcode 

; DEOIAL.MIC C600.12043 Decimal string : BCD-WRITE SUBROUTINE 



U 0E82. OOOC.003A.01CO,3000.0000,0060 

U 0E83. 0000,403C,6D80,3000,0084.6C73 

U 0E86, 0000,403C,6D80,3000,0084,6C78 

U 0E87, 0000,803C,7180,3000,0084,6C71 

U 0C71, OD18.0000,OD80.F800,0200.0C72 

U 0C72. 0000.403C,6D80,3000,0084,6C76 

U 0C73, OD18.0000.0980.F800.0200,OC74 
U 0C74, 0000,803C, 7180,3000,0084.6C76 

U 0C76, OD18,0000,0580,F800,0200,OADF 

U 0C78, 0D18,OO00,0980,F800,0200,0E76 



23072 =010 

23073 

23074 W400: 

23075 

23076 

23077 

23078 

23079 

23080 

23081 

23082 

23083 

23084 

23085 =;END 

23086 W411: 
23087 
23088 
23089 
23090 



.•BRANCH ON LOW 2 BITS OF LA 

CACHE DCL0NG3. 

ALU LB ; Q_ALU.RETURN60 ^ 

CACHE DCWCRD3,SC KC. FFF03, 
J/W40T 

CACHE DCW0RD3.SC KC.FFF03. 
J/W410 

CACHE DCBYTE3 . SC.KC . FFF83 , 
J/W41T 

ALU LA-KC.33, 
VAK7L0AD,DJ>AL.SC 

CACHE DCW0RD3.SC KC. FFF03, 
J/W40T1 



23091 

23092 W401: ALU LA-KC.23.VAK/LOAD. 
D_DAl.SC 



CACHEJ>CBYTE3,SC_KC.FFF83 



23093 
23094 
23095 
23096 

23097 w4011: alu la-kc.13.vak/load, 
" " ddAl.sc, 

J7W100 



23098 

23099 

23100 

23101 W410: 

23102 

23103 

23104 



ALU LA-KC.23,VAK/LOAD. 
D DAl.SC.DT/L0N6. 
J7W200 



3 Frame L15 Sequence 605 

: PCS 01. FPLA OE, WCS124 Page 604 



WRITE IT ALL 
GET LEN6TH IN Q 



WRITE FIRST WORD 



WRITE FIRST WORD 



WRITE FIRST BYTE 

ADJUST ADDRESS 

SHIFT DATA INTO D FOR WRITING 

WRITE NEXT WORD. GET SHIFT COUNT 



LOAD ADDRESS, RI6HT ADJUST 

WRITE BYTE 

LOAD ADDRESS FOR NEXT BYTE 
SHIFT DATA INTO D 



LOAD ADDRESS 
RIGHT ADJUST DATA 



U 0C79, 0079.2D14,01C0,F938,0092,0E89 

U 0E89. 0003,003E,0180,F988,0000,0020 

U 0E8B, 0003.003E.3180.F9B8. 1404, 2020 

U 0E8D, 001F,1400,0180,F800,0082.0E95 

U 0E8F, 001F,1400.0180,F800,0082,OE95 



ZZ-ES0AA-124.0 ; DECMAL.MIC C600,12043 



, P1U124.MCR 600.1204D 
; DECMAL.MIC C600.12043 



MICR02 1L(03) 
Decimal string 



H 15 
Decimal string 14-Jan-82 Fiche 3 Frame M15 Seguence 606 

14-Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01, FPLA 0E, WCS124 Page 605 

: BCD-URJTE SUBROUTINE 



U 0E95, 0001,973C,19EO,F800,01B4,6B39 

U 0E97. 0003,0010,1 1C0.F800.0084.8C7A 

U 0C7A, 081D,8024,11EO,F9B8,0134,AC7B 

U 0C7B, 001D, 3700, 1180. F800, 0195. 4839 



23105 
23106 
23107 
23108 
23109 
23110 
23111 
23112 
23113 
23114 
23115 
23116 
23117 
23118 
23119 
23120 
23121 
23122 
23123 
23124 
23125 
23126 
23127 
23128 
23129 
23130 
23131 
23132 
23133 
23134 
23135 
23136 
23137 
23138 
23139 
23140 
23K1 
23142 
23H3 
23144 



;THE MULP-INSTRUCTION ENTERS THE BCD-WRITE ROUTINE HERE 
WRITE.MUL: 

ALU Q+KC.83. 

SHF7ALU.DT,L0NG, 

SC ALU, 

QK7SHF, 

CLK.UBCC, 

LC RCCT73. SIGNS? 



INCREMENT NIBBLE-COUNT 
SHIFT IT LEFT TWICE 



CLOCK NEW CC 



=001 .-BRANCH ON Q31 AND D NE 

ALU 0(A) ,RCCT73 _ALU,LONG, 
RET0RN2O 

ALU 0(A) ,RCCT73 ALU.LONG, 
STATE STATE.OR.RC. 403, 
RETURR20 

ALU 0-Q,SC ALU,SC?,J/WRI0.MUL 

;11T- = 

ALU.0-Q,SC_ALU,SC? 

•BRANCH ON SC GT 
;101- 



=;END 
=101 

WRIO.MUL: 



=;END 



Q D,ALU D.NAMX.Z TST,8YTE, 

st kczeRoj^ek/loKd, 

BEN/STATE3-0,J/WR101 

ALU 0-»MASK+1 ,Q ALU, 
SC.5C+KC.43 

ALU D.A,'«>NOT.Q,N AMX.Z TST,BYTE,' 
Q D,D ALU,Ft_SC-Rr.43," 
RtCTTj.ALU 

ALU Q-D, CLK.UBCC, 

FE 5C.ANDN0T.KC. 43, SC FE, 

STATE3-07.J/WR101 



SAVE LAST WRITTEN DATA 
ALREADY POSITIVE-END OF DST 

SAVE LAST WRITTEN DATA 

SET OVERFLOW-BIT 

ALREADY POSITIVE-END OF DST 

BRANCH ON NEW Q 

BRANCH ON NEW Q 

CLOCK Z-BIT 
WRITE WHOLE WORD 

LOAD MASK IN 

SAVE OVERFLOW DATA 

JOIN COMMON WRITE ROUTINE 



ZZ-ESOAA-124.0 ; DECMAL.MIC C600.12043 



U 0C7C. 0818.0034,4980,FAOO,0000,OC7D 

U 0C7D, 0818,0038,1 DC7,F800,0000,OC80 
U 0C80, OF1F,A030.01CO,F800.0000.0C81 

U 0C81. 0828.0038,01 80, F800, 1400, 0C82 

U 0C82, 0828.0038,0180,F800,0000,6C84 



; PI W1 24. NCR 600,12043 
; DECMAL.MIC C600,12043 



MICR02 1L(03) 
Decimal string 



N 15 
14-Jan-82 



Decimal string 

14-Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01, FPLA OE, WCS124 



Fiche 3 Frame N15 



Sequence 607 



U 0C84, O01D,0032,O180.FA80,0000,0020 



U 0C85, 0800,003C, 71C0,FA00,0084,6C86 

U 0C86, OD02,803C,0180»F800,0082,OC88 

U 0C88, O0O2,803C,O1E0,F800,0182,0C89 

U 0C89, 080C,0038,0190,F800,0191,OC8A 

U 0C8A, 081 9,2038, 1DC0,F800,14O8,6C8B 

U 0C88, 0802, 803E,4180,FA80, 1404, 411C 



: FAULT PARAMETER SAVE-ROUTINES 
Decimal string 



Page 606 



FAULT PARAMETER SAVE-ROUTINES' 



23145 .TOC 
23146 

23147 .-ROUTINE USED TO STORE SC,STATE,FE,AND LOW BYTE OF D IN RO 

23148 ;THE ORDER IS D,STATE*2,FE,SC 

23149 ;HIGH ORDER BIT OF STATE IS LOST, AND 2 HIGH ORDER BITS OF FE AND SC ARE 

23150 .-RESTORED AS SIGN-EXTENSIONS OF BIT 7. 
23151 

23152 SAVERO.O: 

23153 D_RCR03.AND.KC.FF3 
23154 

23155 c WERO: QJCCSC3.D D.SUAP, 
23156 
23157 
23158 
23159 
23160 
23161 
23162 
23163 
23164 
23165 
23166 
23167 
23168 
23169 

23170 DC. PA. 24 
23171 

23172 RCR03J>.OR.Q,RETURN20 

23173 ; = 

23174 

23175 RESTRO: .-ROUTINE 1 * RESTORE SC,STATE,FE, AND LOV BYTE OF D FROM RO 



sgn/clr'sd*+ss 

q j3.oxtcbyte3.o r . d , d.o 

ealu state, 
d_pack.fp.left 

EALU FE, 
D_PAtK.FP.LEFT 



ENTER HERE IF D IS NOT SET UP 

GET SC AND LOW BYTE OF D 
CLEAR SD AND SS 

MERGE D AND SC (IN HIGH/LOW BYTES) 

GET STATE-REGISTER 

GET FE AND STATE IN MIDDLE BYTES 



*********************************************** 

* Patch no. 024, PCS 0C82 trapped to WCS 115B * 

*********************************************** 



SAVE RESULT IN RO, FINISHED 



23176 
23177 
23178 
23179 
23180 
23181 
23182 
23183 
23184 
23185 
23186 
23187 
23188 
23189 
23190 
23191 
23192 
23193 
23194 
23195 
23*96 
23197 
23198 



;EXPECTS fr,^ ORDER D,STATE*2,FE,SC 



ALU RrR03,D ALU.Q ALU. 
SC_RC.FFF83 

D DAL.SC, 
SC.D.SXTCBYTE3 



FE.SC, 
SC_D.SXTCBYTE3,Q_D 



QR/RIGHT2, 
SC_FE.FE.SCCLK.U3CC 

STATE Q(EXP).Q KCSC3, 
D D.SWAP 



STATE STATE.ANDNOT.KC.803, 
D D.SKTCBYTE3, 
RrR03 ALU. 
RETURfi[1103 



GET THE DATA 
-8 

SHIFT LEFT 
6ET SC 

SAVE SC TEMPORARILY IN FE 
GET FE-VALUE 

GET DATA AGAIN 

CLOCK FE-DATA IN EALU 

RESTORE STATE, DUPLICATE SC IN Q 



CLEAR INTERRUPT-3IT 
SIGN-EXTEND D 



•J 0C8C. 0002.803E,01CO,F800,0000,0040 



B 16 
ZZ-ESOAA-124.0 ; DECMAL.MIC C600J20A3 Decimal string 14-Jan-82 Ffche 3 Frame 816 Seguence 608 

" MICR02 1L(03) 14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA 0E, WCS124 



; P1W124.MCR 600.12043 
; DECMAL.MIC C600,1204D 



Decimal string 



FAULT PARAMETER SAVE-ROUTINES 



Page 607 



U 0C8D, 0819. 2034,^980, F 800, 0000, OC 90 
U 0C90, 0800,003C,71CO,FA10,0084,6C91 

U 0C91. OD14,OO38,01C0.F8O0,OO00,0810 
U 0810, 0001. 003D,0180,FA90, 0000, 0E88 
U 0812. 0001, 803E,0180,FA90. 0000, 0110 

U 0C92, 0800,003C, 7180,FA10,0084,609C 
U 009C, 0817, 8015, 0180. F801, 0200, 0C8C 
U 000C. OD01,203E,01CO,FA90,0000,0020 



23199 SGN.EXT.D: 

23200 .-ROUTINE TO SIGN-EXTEND D-BYTE 

23201 ; 

23202 Q D.SXTCBYTE3, 

23203 RETURN40 
23204 
23205 
23206 
23207 



SIGN EXTEND D 
RETURN40 



ROUTINE WHICH SAVES PC-DELTA,LOW BYTE OF R2, LOW WORD OF D , ALL IN R2 
THE ORDER IS R2.8YTE.D.WORD(REVERSED), PC. DELTA 



D_Q.AND.KC. FF3 



23208 

23209 

23210 

23211 SAVER2.0 

23212 

23213 SAVER2: D D.SWAP, 

23214 Q RCR23.SC KC.FFF83 

23215 ;= 

23216 SAVER2.1: 

23217 D DAL.SC. 

23218 G~PC 

23219 ;0* 

23220 =0* RCR23 D.LONG, 

23221 CALL.J/BAKUP.PC 
2Z222 ;1* 

23223 RCR23 D.BYTE, 

23224 RETURRC1103 

23225 =;END 
23226 

23227 RESTR2: .-ROUTINE TO RESTORE D,R2, AND PC FROM R2 

23228 .-EXPECTS THE ORDER TO BE R2.BYTE,D.W0RD(REVERSED), PC. DELTA 
23229 

23230 D RCR23,SC_KC.FFF83 

23232 =0******' 

23233 PC&VA D.0XTC8YTE3+PC, 

23234 D D.SQAP, 

23235 CALL. J/SGN. EXT. D 

23236 ;1 ****** 

23237 ALU Q. 

23238 RCR23 ALU.LONG, 

23239 D DAL. SCO ALU. 

23240 RETURN20 

23241 =;END ; 



FLIP D AROUND 

GET R2-eYTE, AND SHIFT VALUE 



SHIFT D AND Q TOGETHER 
GET PC FOR CHUCK'S ROUTINE 

STORE UPPER 3 BYTES 
ROUTINE TO BACK UP PC 

LOAD LAST BYTE 
All done. 



GET DATA TO BE RESTORED, 



RESTORE PC 

GET D IN RIGHT ORDER 



GET LOW BYTE 
STORE IT IN R2 
SHIFT D INTO PLACE 
ALL DONE 



ZZ-ESOAA-124.0 ; DECMAL.MIC C600.1204D 
P1J124.MCR 600,12043 MICR02 1L(03) 
DECMAL.MIC C600. 12043 Decimal string 



C 16 
Decimal string 14-Jan-82 Fiche 3 Frame C16 Seguence 609 
14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA OE, WCS124 
: FAULT PARAMETER SAVE-ROUTINES 



Page 608 



U 0033, 0810,0038,C1FO,2DOO,0000,OC94 
U 0C94, 0001,203C,01F8,FBA8,0084,6C95 

U 0C95, OD10.0038,C5FO,2E80,0000,OC96 
U 0C%, 0001,203C,0180,FA98,0000,0C98 
U 0C98, 3010,0038.01CO,F908,0000,0010 

U 0010, 081F,A031,0180,F800,0000,OC90 
U 0110, 0000,163C, 0180, F800,0000,0847 

U 0847, 0000.003E,0180,F800,0000,0002 
U 0B4F, 0000,003C,0180, F800,0000,04FA 



33: 



SAVE .BCD 



ROUTINE SAVE CONTEXT DURING FAULTS AND INTERRUPS FOR 
THE INSTUCTIUNS: MOVP,CMPP,CVTSP,CVTPN,ASHP,CVTLP 
EXPECTS ADDRESSES IN TO AND T1 
EXPECTS LON6U0RD IN RCCT53 
EXPECTS LENGTHS IN RCO AND RC1 

SAVES TO IN R1 

SAVES T1 IN R3 

SAVES RC5 IN RO 

SAVES RC0,RC1, AND PC-DELTA IN R2 



23242 
23243 
23244 
23245 
23246 
23247 
23248 
23249 
23250 
23251 
23252 
23253 
23254 
23255 
23256 
23257 
23258 
23259 
23260 
23261 
23262 
23263 
23264 
23265 
23266 
23267 
23268 

23269 =0***1**** 

23270 ALU O.0XTCBYTEJ.OR.D,D ALU, 

23271 CALC.J/SAVER2 
23272 

23273 MV.SV2: BEN/STATE7-4 

23274 =0111 ;0111 

23275 CHUCK. FPD.RTN: 

23276 RETURN2 
21277 ;1111 — 

23278 J/INT.I 

23279 =;END ; 

23280 



QJDCT03 ,ALU_RCCT03 ,D_ALU 

ALU Q,LC RCCT538R1 ALU, 
S CjcC. 83T Q.O " 

ALU LCRCR03JU.U, 
D DAL.sC, 
Q _IDCT13 

RCR3J.0 

6 RCCT13 



D GETS 1 . LENGTH, Q GETS 1 . ADDRESS 

SAVE 1. ADDRESS IN R1 
NEED TO SHIFT 

SAVE RC5 IN RO 
SHIFT LENGTH 
GET 2. ADDRESS 

SAVE DST-ADDRESS IN R3 

GET DST-LENGTH 



'OR" THE LENGTHS TOGETHER 

TEST INTERRUPT-eiT 

CHUCK'S MEMORY-FAULT-ROUTINE 
TONY'S INTERRUPT-ROUTINE 



ZZ-ES0AA-124.0 ; DECMAL.MIC C600J2Q43 
; P1W124.MCR 600,12043 MICR02 1L(03) 
; DECMAL.MIC C600,12043 DecimaL string 



D 16 
Decimal string 14-Jan-82 

K-Jan-82 T5;30:16 VAX11/780 Microcode 



FAULT PARAMETER SAVE-ROUTINES 



Fiche 3 Frame 016 Seguence 610 

PCS 01, FPLA OE, WCS124 Page 609 



U 0C99, 0800.003C,0180,FA08,0000,029E 

U 029E, 0000.003D,C180.3COO.OOOO,OC92 

U 02BE, 0D02,803C,01C1,F988,0000,0C9A 
U 0C9A, 0002,803C,0180.F980.0000,OC98 
U QC9B, 0800,003C,0180,FA18,0000,OC9C 

U 0C9C, 001F,0008,C580.3EF8,0000,OC9D 

U 0C9D, 0000. 003C,1980,FA00, 1404, 6C9E 

U 0C9E. 0OO0,O03E,0180,F9A8,0000,0110 



RESTORE .8CD: .-SUBROUTINE TO RESTORE CONTEXT FOR M0VP,CMPP,ETC. 
RESTORES TO FROM R1 
T1 FROM R3 
RCO FROM R2 
RC1 FROM R2 
RC5 FROM RO 
PC FROM R2 
R15 FROM 0-RC1-1 

D.RCR13 



23281 

23282 

23283 

23284 

23285 

23286 

23287 

23288 

23289 

23290 

23291 

23292 =0***** 

23293 

23294 

23295 

23296 

23297 

23298 

23299 

23300 

23301 

23302 

23303 

23304 

23305 

23306 

23307 

23308 

23309 

23310 



IDCT03_D,CALL,J/RESTR2 

ALU D.SXTCBYTE3,RCCT13 ALU, 
D _DAL.SC,Q.ALU,SGN/LOAg.SS 

ALUJ). SXTC8YTE3 ,RCCT03_ALU 

D.RCR33 

ALU 0-Q-1,RCR153 ALU, 
IDL713_D 

STATE KCZER03, 
LA8_RrR03 

ALU LA,RCCT53 ALU, 
RET0RNC1103 



RESTORE SRC-LENGTH 1 
SC HAS -8 

RESTORE 2. LENGTH 



NEGATIVE LENGTH 
SAVE DST-ADDRESS 

CLEAR STATE-REGISTER 
RETRIEVE RC 5 FROM RO 



U 0013, 0818,0035,4980,FA78,0000,OC90 

U 0113, 0818,0035,4980,FAOO,0000,OC7D 
U 0153, 0000,003C, 0180,F800,0000,01 10 



E 16 



ZZ-ESOAA-124.0 ; DECMAL.MIC C600. 12043 Decimal string 14-Jan-82 Fiche 3 Frame E16 Sequence 611 

; P1W124.MCR 600,12043 MICR02 1L(03) 14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA OE, WCS124 Page 610 

: DECMAL.MIC C600. 12043 Decimal string : FAULT PARAMETER SAVE-ROUTIKES 



U 0043, 001F,0015,0180,F800.0070,0C85 

U 0153, 0001,003D,0180,FA80,0000,OC92 
U 0173, 0802,973C,01F8,F800,0000,085E 



U 065E, 0001,003C,0180,FAF8,0000,OCAO 

U 085F, 0019,A010,4980,F800,0070,085E 

U OCAO. 0838,1638,D880,F800,0000,OE9E 

U 0E9E, 0000,003C,8580,3COO,0000,02AO 

U 0E9F, 0O00,003C,8580,3CO0,0000,0C47 



23311 13: 

23312 ADS. MEMORY. FAULT 
23313 
23314 
23315 
23316 



;R0UTJNE TO PACK UP ADD/SUB-INSTRUCTION. 

II _ _ — — I — — * 

; GET R15 



23317 

23318 

23319 113: 

23320 

23321 

23322 

23323 133: 

23324 

23325 

23326 

23327 43: 

23328 ADDSUB.RESTART: 



ALU RCR153.AND.KC.FF3, 
D ACU, 
CA_L,J/SAVER2 



ALU _RC.R03.AND.KC. FFJ, 
D ALU 
CAlL,J/SAVERO 



J/MV.SV2 



SAVE R15,R2,AND Pc-DELTA IN R2 

GET RO 

SAVE STATE AND RO IN RO 

TEST FOR INTERRUPT OR MEMORY FAULT 



23329 

23330 

23331 

23332 

23333 

23334 

23335 153: 

23336 

23337 

23338 173: 

23339 

23340 =1110 

23341 



,-ROUTINE TO RESUME ADD/SUB-INSTRUCTION AFTER A FAUlT 
; ENTER HERE FROM IRD 



alu 0+q, set. cc (long), 
calCj/restro 

* i-i iiL~r~m_~n.-B.TTiMM.ij 

RCR03 D,LONG, 
C ALL,3/RESTR2 

Q J),D_D . SXT CBYTE3 , STATE3-0? 



; BRA NCH ON CARRY- BIT OF STATE 

23342 ADSU.RE2: RCR153 D,LONG, 

23343 J/ADSU.RE3 

23344 ; 1 1 1 1 

23345 ALU Q+KC.FF3+1 , SET. CC (BYTE), 

23346 J/A0SU.RE2 

23347 =;END ; 

23348 ADSU.RE3: 

23349 ALU KC.93,D ALU.LEFT, 

23350 n/flu-, " 

23351 SfATE7-4?,J/ADSU.RE4 

23353 =110 -BRANCH ON NEGATE-BIT OF STATE 

23354 ; 1 1 0- 

23355 ADSU.RE4: IDCFPDA3 D,J/ADS.EN 

23356 ;111 =~ 

23357 IDCFPDA3.D,J/NEGATE 

23358 =;END ; = 



CHANGE THIS EVENTUALLY (O.K. NOW) 
RESTORE RO AND STATE FROM RO 

RESTORE RO SGN-EXTENDED 
GET PCR2 AND R15 FROM R2 

TEST CARRY-BIT OF STATE 



RESTORE DEST-LENGTH 
SET PSL C-BIT 



GENERATE ADDRESS 13 
FOR RESTART ADDRESS 
CHECK " SEt IF WE WERE NEGATING 



REENTER MAIN LOOF 
NEGATE STRING 



U 004B, 0003,003D.0180,F9B8,0060.0C99 
U 01 5B, 0010,8938.0180.F900.0092,0A28 

U 0A28. 0000,003C. 1980. F800,1404,6BB8 
U 0A2A. 0000.003C.79BO.F800.0084.62FO 

U 0A2B. 0013. 0000,0580. F980,0084.ABB2 



22-ES0AA-124.0 ; DECMAL.MIC C600, 12043 
: P1W124.MCR 600.12043 MICR02 1L(03) 
; DhCMAL.MIC C600.1204J Decimal string 



F 16 

Decimal string K-Jan-82 

K-Jan-82 15:30:16 VAX1 1/780 Microcode 



Fiche 3 Frame F16 Sequence 612 

PCS 01, FPLA OE, WCS124 Page 611 



U 004C, 0003.003D,0180.F988,0050.0C99 
U 015C, 0010,1B38,0180.F900,0082,0B6D 

u 0B6D. 0000.093C.C1F0.2C00.0000.0A32 



U 0B6F. 0841.203C.C1FO.2COO.0000.OCA1 
U 0CA1, 0C0O,003C,O1E0,F800,00O0,O072 

U 0A32, 0011,2014,0180.FAF8,0000,0CA2 
U 0A33, 0000.003C.0180.F800.0000.00FO 

U 0CA2, 0010.0038.05CO.F908.0084.ACA4 

U 0CA4. 001F,0010,05CO,F800,K04,60F7 



: FAULT PARAMETER SAVE-ROUTINES 

.•ROUTINE TO RESTART MOVP, CVTTP, AND CVTSP AFTER A FAULT 



ALU 0(A), N82 ALU. 

RCCT73 ALU, 

CALL, J7REST0RE. BCD 



SC RCCT03 ,CLK.UBCC ,8YTE . 
IR2-1? 



BRANCH ON IR<2-1> 
00- 



STATE KL7ER03, 
QK/RI6HT, I/S2P.10 
;10- 



SC KC.303 ,PX/RI6HT,J/MVP. 10 

ALU 0-LCRCCT63 ALU. 
SC_5CHCL*.13.J/T2>.I1 



.•ROUTINE TO RESTART CVTLP,CVTPT,CVTPS AFTER A FAULT 



23359 4B: 

23360 MOV. RES: 
23361 
23362 
23363 
23364 
23365 

23366 158: 
23367 
23368 

23369 =00 
23370 

23371 S2P.1: 
23372 
23373 

23374 =10 
23375 
23376 
23377 

23378 =;END 

23379 4C: 

23380 L2P.RES 
23381 
23382 
23383 
23334 
23385 

23386 15C: 
23387 

23388 =1101 
23389 
23390 
23391 

23392 ; *********************************************** 

23393 ; * Patch no. 027. PCS 0B6D trapped to UCS 115E * 

23394 ; *********************************** *********** 

23395 

23396 ; 1 1 1 1 

23397 ALU_Q,D_ALU.RIGHT,0 IDCT03 

23398 =;END ; = 

23399 QJ>,D.Q,J/L2P00 

23401 =10 -BRANCH ON IR<1> 

23402 ; 1 

23403 P2N.RES: 

23404 ALU.Q+LC.RCR153.ALU.J/P2N.RES.1 

23406 J/P2lOO~~~~ — — 

23407 -;END ; 

23408 P2N.RES.1: 

23409 Q RCCT13.SC SC-KC.13 

234 1 ; = = 

23411 STATE KC.13, 

23412 ALU O+Q+1,0. ALU.J/P2T.I00 



CLEAR N. SET 2-BIT 
CLEAR OVERFLOW-REGISTER 



LOAD SRC-LENGTH, CLOCK IT FOR CVTTP 
TEST OPCODE 



THIS IS PART OF CVTSP-ROUTINE 
CLEAR STATE-REGISTER 
CVTSP, IR<2-0>=001 

MOVP, IR<2-0>=100 

CVTTP, IR<2-0>=110 



ALU 0<A) ,NR2_ALU.VftCj>, 

RCCT73ALU, 

CALL, J7REST0RE. BCD 

S C.RCCT03.IR0? 

•BRANCH ON IRO 

;1101 

Q.IDCT03,IR2-1?,J/P2N.RES 



SET 2-8IT, CLEAR N,V.C 
CLEAR OVERFLOW-REGISTER 



LOAD SRC-LENGTH IN SC 



CVTPT,IR<2-0>=100 CVTPS,IR<2-0>=000 



CVTLP, IR<2-0>=001 



CVTPL, IR<2-0>=110 

GET DST-LENGTH, ADJUST SRC-LENGTH 
INITIALI2E STATE-REGISTER 



ZZ-ESOAA-124.0 ; DECMAL.MIC C600.12043 
; P1U124.MCR 600-12043 MICR02 1L(03) 

; DECMAL.MIC C600,12O43 Decimal string 



U 0OC5, 0800,003C.01CO,FA00.0082.0CA5 



U 0CA5, 0B03,003C,0187.F990.0050,00Fo 



G 16 

K-Jan-82 



Fiche 3 Frame 616 



Decimal string 
14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01. FPLA OE, WCS124 
: FAULT PARAMETER SAVE-ROUTINES 



Sequence 613 



Page 612 



U 0045, 0003.003D,0180,F800,0050,OC99 
U 0155, 0C10,0038,C1F0,2D00,0082,0CA6 

U 0CA6, 001D,200C,C5FO,2EF8,0100,CCA8 
U 0CA8, 0C1 9,0000, 05CO,F800,0000,0834 



23413 0C5: 

23414 RESTART. ASHP: 

23415 *;ROUTINE TO RESTART ASHP-INSTRUCTION AFTER FAULT. 

23416 ; ; 

23417 D_RCR03.SC_ALU.O ALU ; GET SHIFT-COUNT AMD ROUNDING-OPERAND 

23418 ;= = = ; 

23419 D D.SUAP.ALU 0(A).NSZ ALU.V6C 0,; CLEAR N-8IT. SET Z-6IT 

23420 SGN/CLR.SD+S5. ; CLEAR SS 

23421 RCCT23.ALU, ; CLEAR RC2 FOR TEMPORARY STORAGE 

23422 J/ASHP.REEN.O 
23423 

23424 45: 

23425 CMP.RESTART: 



23426 

23427 

23428 

23429 

23430 

23431 

23432 

23433 

23434 

23435 155: 

23436 

23437 

23438 

23439 

23440 

23441 

23442 

23443 

23444 

23445 

23446 

23447 

23448 



.•ROUTINE TO RESTART CMPP-INSTRUCTION 
.REENTERS MAIN-ROUTINE AT CMP4I1 
.-WITH D=DST-ADDRESS .Q=DST-LENGTH, 
;FE=SRC-LENGTH+1 



ALU 0(A). NftZ ALU. V6C 0. 

calCj/restoBe.bcd 



SC RCCT03, 
D„Q,Q.IDCT03 

FE SC+1 , 

ALO QCINST.DEP3D. 

RCRT53 ALU, 

Q_IDCTT3 



D O.ALU D-KC.13,0 ALU. 
J7CMP4IT 



SET Z-BIT, CLEAR V AND C 
RESTORE IDCT03,IDCT13,RC0,RC1 



LOAD SRC1-LENGTH IN SC 
RETRIEVE SRC1 -ADDRESS 



INCREMENT SRC1 -LENGTH 
SUBTRACT 1 FROM Q 
STORE SRC1 -ADDRESS IN R15 
GET SRC2-ADDRESS 



ADJUST ADDRESS 

REJOIN MAIN ROUTINE 



ZZ-ESOAA-124.0 ; DECMAL.MIC C6O0,12O43 
; P1U124.MCR 600-12043 MICR02 1L<03) 

; DECMAL.MIC C600.12O43 Decimal string 



H 16 

Decimal string 14-Jan-82 Fiche 3 Frame H16 Sequence 614 
14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA 0E, WCS124 Page 613 
: FAULT PARAMETER SAVE-ROUTINES 



U 0CA9, 0001,203C,D1F0.2E88.0100.048D 

U 048D, 0001,203D,0180,F800,0082.0C7C 
U 04AD, 0810.0038,DDFO,2D30,0000,OCAA 
U OCAA, 0800,003C,6980,F800.0084,6059 

U 0059, ODO0,003D,0180,F800,000O.0C90 
U 0159, OOO0,003C, CDF0,2E28,0000,0CA8 

U OCAB, 080D,2000,C1FO,2CAO,0000,OC81 



23449 
23450 
23451 
23452 
23453 
23454 
23455 
23456 
23457 
2.308 
23459 
23460 
23461 
23462 
23463 
23464 
23465 
23466 
23467 
23468 
23469 
23470 
23471 
23472 
23473 
23474 
23475 
23476 
23477 
23478 
23479 
23480 
23481 
23482 
23483 
23484 
23485 
23486 
23487 
23488 
23489 



MULT. SAVE; 



ROUTINE TO SAVE CONTEXT DURING FAULTS IN MULTIPLY. 

LEAVES R3 ALONE (HAS MULTIPLICAND-ADDRESS) 

SAVE MULTIPLIER ADDRESS IN R1 

LEAVE 35 ALONE, HAS DST-ADDRESS 

ALSO SAVES PC-DELTA,RO(MULTIPLICAND-BYTE), 

R4 (CURRENT DST-LENGTH) ,R2(MULTIPLICAND-LENGTH) 

TO (CURRENT MULTIPLICAND-DIGIT), 

T6 (MULTIPLIER ADDRESS) 

RC6 (MULTIPLIER-COUNT) 

R1 (PRODUCT-LENGTH) 

T7 (MULTIPLIER-LENGTH), STATE, 

T3-R5(0FFSET FROM ABSOLUTE DST-ADDRESS) 

T4 ORIGINAL DST-LENGTH 

THIS ROUTINE SAVES T4,R1,R0,AND STATE IN RO 
RC6,T7,R2, AND PC-DELTA ARE SAVED IN R2 
R4,T3-R5,T0 ARE SAVED IN R4 



RCR13 Q, 
FF.SCQ.IDCT43 



=0***** 



=;END 



alu q,sc alu, 
calCj/sJvero.o 

• ■_ LMMMW^MMM. ■■!■■■. 

D_RCCT63,Q.IDCT73 
SC_KL".FFE83,D_D.SUAP 



=0***1**** 

D.DAL . SC , CALL , J/SAVER2 



Q_IDCT33,LAB_RCR53 



=;END 



LA RACR43, 

ALO Q-LB,D_ALU,QJDCT03, 

J/SAVER4 



SAVE MULTIPLIER-ADDRESS IN Rl 
GET DST-LENGTH 



SAVE DST-LENGTH IN RO (VIA SC) 
SAVE FE,SC, STATE IN RO 

GET MULTIPLIER-LENGTH 

PACK IT INTO D 

SHIFT Q INTO D AS WELL 

GET ABSOLUTE AND RELATIVE 
PRODUCT-ADDRESSES 

SAVE IT ALL IN R4 

DON'T RETURN FROM THIS ROUTINE 



ZZ-ESOAA-124.0 ; DECMAL.MIC [600.12043 
; P1W124.MCR 600.12043 MICR02 1L(03) 
; DECMAL.MIC C6O0J2OAD Decimal string 



I 16 

Decimal string 14-Jan-82 
H-Jan-82 15:30:16 VAX11/780 Microcode 



FAULT PARAMETER SAVE-ROUTINES 



Fiche 3 Frame 116 Sequence 615 

PCS 01 , FPLA 0E. WCS124 Page 614 



U OCAC. 0803.A03C.CD80.3C0O.000O.04C0 
U 04C0. 0000.003D.C180,3COO,0000,OC92 
U 04E0, 0Dl9,0034,4980.F9B0.0000.0 r ai 

U 0081, 0000.003D,DD80,3C00,0000.0C85 

U 01B1. 0818.0038.1D80.F800.0081.0CAD 

U OCAD, 0O18.0O38,1DC0,F80O,O00O,0CB0 

U 0CB0, 0OO2.A03C,D1C0,3COO,OO0O,072E 

U 072E. 0001. 203D,DDF0,2E88, 0000. 0990 
U 073E. 0810.1 738.0180.F930.0000.0B76 

U 0B76. OF00.173C.0180.F800.0000.042A 
U 0B77, OFOO,003C,D1FO,2COO,0000,033A 

U 0B7E. 0819,A014,0580,F800,0010.0BFD 

U 0B7F, 0018,8000,0580,F980,0000,08F9 



U 042A, 001F, 0010. 01 CO.F800.0000, 0828 
U 042E. 0000.003C.0180,F800,0000.0566 



23490 MUL.RES.1: 

23491 .-ROUTINE TO RESTORE CONTEXT FOR MULP-INSTRUCTION. 



IDCT33J). 

ALU.Q . 0XTCBYTE3 .D.ALU 



23492 
23493 
23494 

23495 =0***** 

23496 IDCT03J).CALL.J/RESTR2 

23498 ALU D.AND.K[.FF3,RCCT63 ALU. 

23499 D_DAt.SC 

23500 =;END ;= 

23501 =0***1**** 

23502 IDCT73 D, 

23503 CALL.J7RESTR0 
23504 

23505 D_KCSC3.SC FE 

23506 =;END ; " 

23507 Q_KCSC3 
23508 

23509 ALU_Q.SXTCBYTE3,Q ALU.IDCT43 D 

23510 =;END 



23511 =0**** RCR13 Q.Q IDCT73, 

CALL.J/LOto.MULTIPLIER 



D_RCCT63.STATE3-0? 



.BRANCH ON 1.READ AND HI/LO-BITS 
;011O 



D 0.STATE3-07.J/MULT.RE1 
;0l11- 



23512 
23513 
23514 

23515 =;END 

23516 =0110 
23517 
23518 
23519 
23520 
23521 
23522 
23523 
23524 
23525 
23526 
23527 
23528 

23529 =;END 

23530 =01* 
23531 

23532 MULT. RE 1 

23533 ALU 0+Q+1.Q ALU, 

23534 J/MOLR.1 " 

23535 ;11* 

23536 J/MULSGNO 

23537 =;END ; 



D0,Q_IDCT43.J/MUL. F2 

ALU 0-HCC.13. 

D ACU.CLK.UBCC.BYTE, 

J7MULM00 

ALU D.0XTCBYTE3-KC.13, 

RCCT63_ALU, 

J/MULM 

;BRANCH ON 1. WRITE BIT OF STATE 
;01* 



RESTORE ABSOLUTE PRODUCT-ADDRESS 
GET MULTIPLICAND DIGIT 



IDCT03 GETS MULTIPLICAND-DIGIT 

GET RC-COUNT 

SC HAS -8 FROM RESTR2 



MULTIPLIER LENGTH 
GET CONTENTS OF RO 

PART OF DATA IS IN SC AND FE 



T4 GETS PRODUCT LENGTH 

GET MULTIPLIER-LENGTH 

SUBROUTINE TO RELOAD M'PLIER IN RC 

DETERMINE WHERE TO RESTART 

OF STATE 

TEST READ/WRITE-6IT 

FAULTED DURING SIGN-CHANGE 

ADJUST LENGTH 

FAULTED WHILE READING M'PLICAND 

READ ANOTHER BYTE OF MULTIPLICAND 

FAULTED WHILE UPDATING PRODUCT 
OR TOOK AN INTERRUPT 
MULTIPLY RC-REGISTERS 



IT WAS NOT SIGN-BYTE THAT FAULTED 
FAULT IN SI^j-BYTE 



ZZ-ESOAA-124.0 ; DECMAL.MIC C600. 12043 
; P1W124.MCR 600.12043 MICR02 1LC03) 
; DECMAL.MIC C600.12043 Decimal string 



U 0CB1, OB00.003C,7180,F800,0084,6CB2 

U 0CB2, OD18,0034,49CO,FA20,0000,OCB3 

U 0CB3, 0819,0024. 4980, F 800, 0000. 0CB4 

U 0CB4, 001D, 0030, 0180, FMO. 0000,0110 



U 0CB5. 0800,003C,01CO,FA20,0000,OCB8 
U 0CB8, OB02,A03C,71CO,FA28,0084,6CB9 
U 0CB9, 0D01,203E,01E0,FAAO,O000.O001 



J 16 
14-Jan-82 



Fiche 3 Frame J16 



Decimal string 

14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA OE, WCS124 
: FAULT PARAMETER SAVE-ROUTINES 



Sequence 616 



Page 615 



23538 SAVER4: .-ROUTINE TO SAVE LA,D.AND Q IN R4 

""""" ;NOT A SUBROUTINE, JUMPS DIRECTLY TO MEMORY-FAULT OR INTERRUPT 



D D.SWAP, 
SCJCC.FFF83 

D DAL.SC. 
ACU_RCR4 3.AND.KC.FF3,Q.ALU 

ALUJ>.ANDN0T.KC.FF3,D_ALU 



23539 

23540 

23541 

23542 

23543 

23544 

23545 

23546 

23547 

23548 

23549 

23550 

23551 

23552 

23553 RESTR4: ; ROUTINE TO RESTORE D.Q.AND R4 FROM R4 

23554 

23555 D RCR43.Q ALU 

23556 ;= = 

23557 D D.SWAP.ALU Q.SXTC8YTE3,Q ALU, 

23558 St KC.FFF83,CAB.RCR53 

23559 ;-= = 

23560 ALU Q.RCR43 ALU.O D, 

23561 D DA1.SCRETURN1 " 
23562 



ALU D.0R.Q.RCR43.ALU. 
J/MV.SV2 



MANIPULATE DATA BY 
BY SHIFTING 

AND MASKING 

AND MERGING 

UNTIL IT ALL FITS IN R4 



AND NOW UNRAVEL IT AGAIN 

BY SWAPPING 
AND SHIFTING 

UNTIL IT IS BACK 
WHERE IT CAME FROM 



ZZ-ESOAA-124.0 ; DECMAL.MIC [600,12043 

; P1U124.MCR 600.12043 MICR02 1L(03) 

; DECMAL.MIC C60O,12043 Decimal string 



K 16 

Decimal string 14-Jan-82 Fiche 3 Frame K16 Seguence 617 
14-Jan-82 15:30:16 VAX11/780 Microcode : PCS 01, FPLA 0E, WCS124 
: FAULT PARAMETER SAVE-ROUTINES 



Page 61 6 



U OCBA, 0010. 0038, D9F0, 2028,0082, 0012 
U 0012, 0O01,203D,0180,FA88,0000,OC7D 

U 0032, 0800,003D,DDFO,2E10,0000,OC8D 

U 0132, 0000,003C, E5F0,2CA0,O000,OCB1 



23563 
23564 
23565 
23566 
23567 
23568 
23569 
23570 
23571 
23572 
23573 
23574 
23575 
23576 
23577 
23578 
23579 
23530 



DIV.SAVE 



ROUTINE TO SAVE CONTEXT FOR DIVIDE PACKED BCD-STRINGS 

EXPECTS: 

IDCT63 HAS LOW DIVISOR-ADDRESS 

IDCT73 HAS DIVIS0R-LEN6TH/2<C0NSTANT) 

IDCT93 HAS ORIGINAL QUOTIENT-LENGTH 

R2 HAS DIVIDENDH.EN6TH.0R.KC.13CINITIALLY) 

R3 HAS DIVIDEND-ADDRESS 

R4 HAS QU)TIENT-LENGTH(CURRENT) 

R5 HAS QUOTIENT-ADDRESS 

RC5 HAS CURRENT DIGIT OF QUOTIENT 

SAVE T6 IN R1 

SAVE RC5,STATE,D IN RO 

SAVE T7,R2 AND PC-DELTA IN R2 

SAVE R4 AND T9 IN R4 



Q.IDCT63,S C_RCCT5 J 

** 

RCR1 3JJ , CALL, J/SAVERO 



23581 

23582 =0**01**** 

23583 

23584 

23585 =0**11**** 

23586 Q IDCT73,D RCR23, 

23587 CAlL.J/SAVER2.0 

23588 ; 

23589 =1**11**** 

23590 LA RACR43,Q IDCT93, 

23591 J/SAVER4 

23592 =;END ; 



GET ADDRESS AND DATA 

SAVE RC5, STATE, AND D IN RO 

SAVE T7,R2 AND PC-DELTA IN R2 



SAVE R4 AND T9 IN R4 
DO NOT RETURN HERE 



ZZ-ESOAA-124.0 ; DECMAL.MIC [600.1204!] Decimal string 14-Jan-82 Fiche 3 Frame L16 Sequence 618 

._. MKR02 U((b 14-Jan-82 15:30:16 VAX1 1/780 Microcode : PCS 01, FPLA 0E, WCS1 24 



. P1W124.MCR 600.12043 
; DECMAL.MIC C600, 12043 



Decimal strinj 



L 16 
-Jan-f 
V/ 
: FAULT PARAMETER SAVE-ROUTINES 



Page 617 



U 0047. 08O0,O03C,O18O,FA08,000O,084C 
U Q84C. 00O0,003D.D98O,3C00,0000,0CB5 

U 084D. 0802,A93C.01EO,F800.0000,0056 



U 0056, 080E,A014,01EO,F800.0000.0CAC 

U 0057. 00O0,O03D,E58O,3C0O.00OO.0C92 

U 0077, 0000.003D,DD80.3COO,0000,OC85 

U 0177, 001 9,0034, 61 80, FAF8, 0000,0742 

U 0742, 0818,0039.1D80,F9A8,0000,09CO 
U 0752, 0000,163c, 0580, FA70, 1604, 4EA4 



RESTORE THE REGISTERS WHICH ARE 
COMMON TO THE TWO INSTRUCTIONS 

TEST OP-CODE TO TAKE SEPARATE PATHS 



23593 47: 

23594 MULP.DIVP.RESTORE: 

23595 .-ROUTINE TO RESUME DECIM AL MULTIPLYING AND DIVIDING AFTER A FAULT 

23597 dIrCR13 ™ - 

23598 ;= 

23599 =0 IDCT63.D.CALL.J/RESTR4 

23600 ; = 

23601 ALU Q.SXTCBYTE3.D ALU.Q D, 

23602 IR2=1? 

23603 =;END ; 

23604 =6**01**10 

23605 ;BRANCH ON BIT 1 OF OP-CODE 
23606 

23607 ALU Q.SXTCBYTE3+LB, 

23608 Q D.D ALU,J/MUL.RES.1 

23609 ;= = 

23610 DIVP.RESTORE: 

23611 IDCT93.D.CALL.J/RESTR2 

23613 =0**11**11 

23614 IDCT73.D.CALL.J/RESTR0 



2361 :> 

23616 =1**11**11 

23617 ALU D.AND.KC.F3,RCR153 ALU 

23618 =;END ; 

23619 =0**** 

23620 ALU KCSC3,RCCT53.ALU,D ALU, 

23621 CALt.J/DIVDR 
23622 

23623 STATE S^TE.ANDNOT.KC. 13, 

23624 VA RC5PJ,STATE7-4? 



MULP-RESTORE 
RESTORE QUOTIENT LENGTH 
RESTORE DIVISOR LENGTH 
RESTORE R15 WITH LEADING DIGIT 



RESTORE QUOTIENT BYTE 
RESTORE DIVISOR, LOAD FPDA 

CLEAR LOW BIT (FOR CONSTRAINTS) 
PREPARE TO READ DIVIDEND FROM STACK 



B 1 Character string 

C 1 Character string 

D 1 Character string 

E 1 Character string 

F 1 Character string 

G 1 Character string 

H 1 Character string 

I 1 Character string 

J 1 Character string 

K 1 Character string 

L 1 Character string 

M 1 Character string 

N 1 Character string 

B 2 Character string 

C 2 Character string 

D 2 Character string 

E 2 Character string 

F 2 Character string 

G 2 Character string 

H 2 Character string 

I 2 Character string 

J 2 Character string 

K 2 Character string 

L 2 Character string 

M 2 Character string 

N 2 Character string 

B 3 Character string 

C 3 Character string 

3 Character string 
E 3 Character string 
F 3 Character string 
G 3 Character string 
H 3 Character string 

1 3 Character st r ing 
J 3 Character string 
K 3 Character string 
L 3 Character string 
M 3 Character string 
N 3 Character string 
B 4 Character string 
C 4 Character string 
D 4 Character string 
E 4 Character string 
F 4 EDIT.MIC 

G 4 Edit instruction 

H 4 Edit instruction 

I 4 Edit instruction 

J 4 Edit instruction 

K 4 Edit instruction 

L 4 Edit instruction 

M 4 Edit instruction 

N 4 Edit instruction 

B 5 Edit instruction 

C 5 Edit instruction 

D 5 Edit instruction 

E 5 Edit instruction 

F 5 Edit instruction 

G 5 Edit instruction 

H 5 Edit instruction 

I 5 Edit instruction 



SKPC, 


LOCC 


SKPC, 


LOCC 


SKPC, 


LOCC 


SKPC/LOCC LONGWORD OPERATIONS 


SKPC/LOCC LONGWORD OPERATIONS 


SKPC/LOCC LONGWORD OPERATIONS 


SKPC/LOCC LONGWORD OPERATIONS 


SKPC/LOCC LONGWORD OPERATIONS 


SKPC - 


DETERMINE WHICH BYTE 


SKPC/LOCC FPD ♦ RESTART 


SPANC, 


SCANC 


SPANC, 


SCANC 


SPANC, 


SCANC 


SPANC/SCANC RESTART 


CMPC3, 


CMPC5 


CMPC3, 


CMPC5 


CMPC3, 


CMPC5 


CMPC3, 


CMPC5 


CMPC3, 


CMPC5 


CMPC3, 


CMPC5 


CMPC3, 


CMPC5 


CMPC3, 


CMPC5 


CMPC3, 


CMPC5 


CMPC3, 


CMPC5 


CMPC3, 


CMPC5 



MATCHC 
MATCHC 

MATCHC OUTER LOOP 
MATCHC OUTER LOOP 
MATCHC INNER LOOP 
MATCHC INNER LOOP 
MATCHC TERMINATION 
MATCHC TERMINATION 
MATCHC FPD + RESTART 
MATCHC FPD + RESTART 
MOVTC, MOVTUC 
MOVTC, MOVTUC 
MOVTC, MOVTUC 
MOVTC, MOVTUC 
MOVTC/MOVTUC LOOP EXITS 
MOVTC/MOVTUC LOOP EXITS 
MOVTC/MOVTUC LOOP EXITS 
MOVTC/MOVTUC LOOP EXITS 

ALGORITHM 
ALGORITHM 
EDITPC entry 
EDITPC entry 
SIGN EVALUATION 
SIGN EVALUATION 
PATTERN DECODE 
PATTERN DECODE 
PATTERN DECODE 
PATTERN DECODE 
PATTERN DECODE 
PATTERN DECODE 
PATTERN DECODE 
BRIEF PATTERNS 
PRIEF PATTERNS 
MOVE ♦ FLOAT 



J 


5 


Edit instruction 


MOVE + 


FLOAT 


K 


5 


Edit instruction 


MOVE + 


FLOAT 


L 


5 


Edit instruction 


MOVE ♦ 


FLOAT 


M 


5 


Edit instruction 


MOVE ♦ 


FLOAT 


N 


5 


Edit instruction 


OTHER PATTERNS 


B 


6 


Edit instruction 


OTHER PATTERNS 


C 


6 


Edit instruction 


ADJUST 


INPUT 


D 


6 


Edit instruction 


ADJUST 


INPUT 


E 


6 


Edit instruction 


ADJUST 


INPUT 


F 


6 


Edit instruction 


ADJUST 


INPUT 


G 


6 


Edit instruction 


' TERMINATION 


H 


6 


Edit instruction 


TERMINATION 


I 


6 


Ed*t instruction 


TERMINATION 


J 


6 


Edit instruction 


FPD + 


RESTART 


K 


6 


Edit instruction 


• FPD + 


RESTART 


L 


6 


Edit instruction 


FPD + 


RESTART 


M 


6 


Edit instruction 


FPD + 


RESTART 


N 


6 


Edit instruction 


• FPD + 


RESTART 


B 


7 


Edit instruction 


FPD + 


RESTART 


C 


7 


DECMAL.MIC 






D 


7 


Decimal 


. string 


MOVP 




E 


7 


Decimal 


. string 


• MOVP 




F 


7 


Decimal 


. string 


• MOVP 




G 


7 


Decimal 


. string 


: MOVP 




H 


7 


Decimal 


. string 


: MOVP 




I 


7 


Decimal 


. string 


: MOVP 




J 


7 


Decimal 


. string 


• CMPP3, 


CMPP4 


K 


7 


Decimal 


. string 


: CMPP3, 


CMPP4 


L 


7 


Decimal 


. string 


: CMPP3, 


CMPP4 


M 


7 


Decimal 


. string 


: 0*»P3, 


CMPP4 


N 


7 


Decimal 


. string 


: CMPP3, 


CMPP4 


B 


8 


Decimal 


. string 


: CMPP3, 


CMPP4 


C 


8 


Decimal 


. string 


: CMPP3, 


CMPP4 


D 


8 


Decimal 


. string 


: CMPP3, 


CMPP4 


E 


8 


Decimal 


. string 


: CVTLP 




F 


8 


Decimal 


. string 


: CVTLP 




G 


8 


Decimal 


. string 


• CVTLP 




H 


8 


Decimal 


. string 


: CVTLP 




I 


8 


Decimal 


. string 


• CVTLP 




J 


8 


Decimal 


. string 


: CVTLP 




K 


8 


Decimal 


. string 


• CVTPL 




L 


8 


Decimal 


. string 


• CVTPL 




M 


8 


Decimal 


. string 


• CVTPL 




N 


8 


Decimal 


. string 


• CVTPL 




B 


9 


Decimal 


> string 


• CVTPL 




C 


9 


Decimal 


. string 


• CVTPL 




D 


9 


Decimal 


. string 


• CVTPS 




E 


9 


Decimal 


. string 


CVTPS 




F 


9 


Decimal 


. string 


• CVTPT 




G 


9 


Decimal 


. string 


CVTPT 




H 


9 


Decima 


. string 


CVTPT 




I 


9 


Decima 


. string 


• CVTPT 




J 


9 


Decima 


. String 


• CVTPT 




K 


9 


Decima 


. string 


• CVTPT 




L 


9 


Decima 


> string 


• CVTPT 




M 


9 


Decima 


. string 


: CVTPT 




N 


9 


Decima 


. string 


■ CVTPT 




B 


10 


Dec ima 


. string 


• CVTTP 




C 


10 


Dec ima 


. string 


• CVTTP 




D 


10 


Dec ima 


. string 


: CVTTP 





10 
10 
10 
10 
10 
10 
10 
10 
10 
10 



12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 



Decima 
Decima 
Decima 
Decima 
Decima 
Decima 
Decima 
Decima 
Decima 
Decima 
Decima 
Decima 
Decima 
Decima 
Decima 
Dec ima 
Decima 
Decima 
Decima 
Decima 
Decima 
Decima 
Decima 
Decima 
Decima 
Decima 
Dec ima 
Decima 
Decima 
Dec ima 
Decima 
Decima 
Decima 
Decima 
Decima 
Decima 
Dec ima 
Decima 
Decima 
Decima 
Decima 
Dec ima 
Dec ima 
Decima 
Decima 
Decima 
Dec ima 
Dec ima 
Dec ima 
Dec ima 
Dec ima 
Dec ima 
Dec ima 
Dec ima 
Dec ima 
Dec ima 
Dec ima 
Dec ima 
Dec ima 
Dec ima 



string 
string 
string 
string 
string 
string 
string 
string 
string 
string 
string 
string 
string 
string 
string 
string 
string 
string 
string 
string 
string 
string 
string 
string 
string 
string 
string 
string 
string 
string 
string 
string 
string 
string 
string 
string 
string 
string 
string 
string 
string 
string 
string 
string 
string 
string 
string 
string 
string 
string 
string 
string 
string 
string 
string 
string 
string 
string 
string 
string 



CVTTP 

CVTTP 

CVTTP 

CVTTP 

CVTSP 

CVTSP 

CVTSP 

ADDP4, 

ADDP4, 

ADDP4. 

ADDP4. 

ADDP4. 

ADDP4, 

ADDP4, 

ADDP4, 

ADDP4, 

ADDP4, 

ADDP4, 

ADDP4, 

ADDP4, 

ADDP4, 

ADDP4, 

ADDP4, 

MULP 

MULP 

MULP 

MULP 

MULP 

MULP 

MULP 

MULP 

MULP 

MULP 

MULP 

MULP 

MULP 

MULP 

MULP 

DIVP 

DIVP 

DIVP 

DIVP 

DIVP 

DIVP 

DIVP 

DIVP 

DIVP 

DIVP 

DIVP 

DIVP 

DIVP 

DIVP 

DIVP 

DIVP 

ASHP 

ASHP 

ASHP 

ASHP 

ASHP 

ASHP 



ADDP6, 
ADDP6, 
ADDP6, 
ADDP6, 
ADDP6. 
ADDP6, 
ADDP6, 
ADDP6, 
ADDP6, 
ADDP6, 
ADDP6, 
ADDP6, 
ADDP6, 
ADDP6, 
ADDP6, 
ADDP6. 



SUBP4, 
SUBP4, 
SUBP4, 
SUBP4. 
SUBP4, 
SUBP4, 
SU8P4, 
SUBP4, 
SU8P4, 
SUBP4, 
SUBP4, 
SUBP4, 
SU8P4, 
SUBP4, 
SU8P4, 
SUBP4, 



SUBP6 
SUBP6 
SUBP6 
SUBP6 
SUBP6 
SUBP6 
SUBP6 
SUBP6 
SUBP6 
SUBP6 
SUBP6 
SUBP6 
SU8P6 
SUBP6 
SUBP6 
SU8P6 



M 


14 


Decimal 


N 


14 


Decimal 


B 


15 


Decimal 


C 


15 


Decimal 


D 


15 


Decimal 


E 


15 


Decimal 


F 


15 


Decimal 


G 


15 


Decimal 


H 


15 


Decimal 


I 


15 


Decimal 


J 


15 


Decimal 


K 


15 


Decimal 


L 


15 


Decimal 


M 


15 


Decimal 


N 


15 


Decimal 


B 


16 


Decimal 


C 


16 


Decimal 


D 


16 


Decimal 


£ 


16 


Dec imal 


F 


16 


Decimal 


6 


16 


Decimal 


H 


16 


Decimal 


I 


16 


Decimal 


J 


16 


Decimal 


K 


16 


Decimal 


L 


16 


Decimal 



string 
string 
string 
string 
string 
string 
string 
string 
string 
string 
string 
string 
string 
string 
string 
string 
string 
string 
string 
string 
string 
string 
string 
string 
string 
string 



ASHP 

ASHP 

BCD-READ SUBROUTINE 

BCD-READ SUBROUTINE 

BCD-READ SUBROUTINE 

BCD-READ SUBROUTINE 

BCD-READ-WITH-WRITE-CHECK SUBROUTINE 

BCD-READ-WITH-WRITE-CHECK SUBROUTINE 

BCD-READ-WITH-WRITE-CHECK SUBROUTINE 

BCD-WRITE SUBROUTINE 

BCD-WRITE SUBROUTINE 

BCD-WRITE SUBROUTINE 

BCD-WRITE SUBROUTINE 

BCD-WRITE SUBROUTINE 

FAULT PARAMETER SAVE-ROUTINES 

FAULT PARAMETER SAVE-ROUTINES 

FAULT PARAMETER SAVE-ROUTINES 

FAULT PARAMETER SAVE-ROUTINES 

FAULT PARAMETER SAVE-ROUTINES 

FAULT PARAMETER SAVE-ROUTINcS 

FAULT PARAMETER SAyE-ROUTINES 

FAULT PARAMETER SAVE-ROUTINES 

FAULT PARAMETER SAVE-ROUTINES 

FAULT PARAMETER SAVE-ROUTINES 

FAULT PARAMETER SAVE-ROUTINES 

FAULT PARAMETER SAVE-ROUTINES 



